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Preface 


Document Objectives 

This manual describes the interface between compiled programs written in higher-level languages 
and the procedures in the Run-Time Library that support these programs. 

For each language support procedure, this manual includes a functional description, the calling 
sequence, appropriate examples, and access instructions for some VAX—11 supported languages. This 
manual does not duplicate the descriptions of higher-level language statements and procedures con¬ 
tained in the language reference manuals and user's guides. 

This release of the VAX-11 Run-Time Library Language Support Reference Manual documents the 
support procedures for BASIC, COBOL, FORTRAN, and PL/I. Future releases of this manual will 
document additional native mode languages. 

Intended Audience 

This manual addresses users who develop compilers and those who want to use or extend the 
services provided by the language support procedures, including: 

• Individuals writing run-time support procedures for their own run-time library 

• Software support specialists for VAX-11 layered language products 

• System programmers desiring to understand the generated code in order to optimize or debug their 
programs 

• Programmers working in a multilanguage environment 

The manual does not describe internal routines or data structures used by the Run-Time Library 
language support procedures. 

Document Structure 

This manual is separated into divisions. Each division has its own title page and table of contents. An 
index to the entire manual follows the last language-specific division. 

The first division contains generic information on VAX/VMS data types and parameter passing mech¬ 
anisms, RMS file structure, and VAX error handling facilities. 

The other divisions contain descriptions of the language-specific support procedures and information 
about calling and writing user programs that access these procedures. 
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Associated Documents 


The following documents comprise the rest of the VAX—11 Run-Time Library documentation set: 

• VAX-11 Run-Time Library User's Guide 

This manual describes the capabilities of the Run-Time Library and shareable procedure libraries 
in general. It tells how programs link with the Run-Time Library, how the library is organized, and 
how to call library procedures explicitly. 

• VAX—/ 1 Run-Time Library Reference Manual 

This manual describes the procedures in the library that perform general utility functions. These 
procedures are language-independent. 

• VAX-11 Guide to Creating Modular Library Procedures 

This manual tells how to write modular procedures and put them into a procedure library. 

The VAX-11 Run-Time Library Language Support Reference Manual describes procedures that imple¬ 
ment semantics of the VAX-11 languages. For complete descriptions of these languages, see the 
appropriate user's guides and language reference manuals for: 

• VAX-11 BASIC 

• VAX-11 COBOL 

• VAX-11 FORTRAN 

• VAX-11 PL/I 

For a complete list of all VAX-11 documents, including a brief description of each, see the VAX-11 
Information Directory and Index. 


Conventions 

Unless otherwise noted: 

• All numeric values are represented in decimal notation. 

• All commands terminate with a carriage return. 

Lowercase characters indicate variables; uppercase characters indicate literal information, which you 
must enter exactly as shown. 

Brackets ([ ]) in procedure descriptions denote optional arguments. An equal sign ( = ) after an 
optional parameter indicates the default value if you omit the parameter. 

When followed by an ellipsis (...), a parameter can be repeated one or more times. 

For JSB entry points, the symbol in parentheses following the argument (for example, Rn) indicates the 
register in which the argument is passed. 


Unless otherwise specified, the term: 

• MACRO means VAX-11 MACRO. 

• BLISS means BUSS-32. 

• BASIC means VAX-11 BASIC. 

• COBOL means VAX-11 COBOL. 

• FORTRAN means VAX-11 FORTRAN. 

• PL/I means VAX-11 PL/I. 

• Run-Time Library means VAX-11 Run-Time Library. 

• Linker means VAX—11 Linker. 
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This division contains language-independent information on VAX/VMS 
data types and parameter passing mechanisms, RMS file structure, and 
VAX error handling facilities. This division is intended for use by 
multilanguage programmers. The material in this division is not 
introductory. 


Generic Division 
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Introduction 


This division contains introductory information necessary for using the language support procedures 
described in the language-specific divisions. 

Chapter 1 describes the data types and parameter passing mechanisms supported by each language. 
Use the tables in Chapter 1 to ensure compatibility between your calling program and a called 
procedure. 

Chapter 2 describes the interface between each language and the VAX-11 Record Management 
Services (RMS). 

• Shows how RMS functions are related to FORTRAN and BASIC language statements. 

• Shows how RMS file attributes are related to language statements in all four languages. 

• Shows how FORTRAN and BASIC language semantics for a file are related to the contents of the 
File Access Block (FAB), Record Access Block (RAB), and Extended Attributes Block (XAB). 

Chapter 3 describes how each language uses the VAX-11 condition handling facility. 






Chapter 1 

The Language Independent Environment 


The VAX-11 Procedure Calling and Condition Handling Standard specifies how interfaces between 
modules are implemented. This standard applies to all externally callable interfaces in DIGITAL- 
supported standard system software. It also applies to intermodular calls to major VAX—11 software 
components. 

All DIGITAL-supplied higher-level language compilers generate code for external subroutine calls 
(using an explicit CALL statement) and for external function references that follows this standard. This 
chapter describes how each language implements the data types and passing mechanisms defined by 
the VAX-11 Procedure Calling Standard. 

1.1 Data Types 

Each data type implemented for a higher-level language uses one of the standard VAX-11 data types 
for procedure parameters and elements of file records. Data types fall into three categories: atomic, 
string, and miscellaneous. For a description of the VAX-11 data types, see the VAX-11 Procedure 
Calling and Condition Handling Standard (Appendix C of the VAX-11 Run-Time Library Reference 
Manual). 

1.2 Parameter Passing Mechanisms 

The parameter passing mechanism refers to the way data is passed to a subprogram. The VAX—11 
Procedure Calling Standard allows three methods for passing parameters: 

1. By immediate value — the argument list entry contains the argument value itself. This value can 
only be an input parameter. 

2. By reference — the argument list entry contains the address of the argument. 

3. By descriptor - the argument list entry contains the address of a descriptor. The descriptor in turn 
contains the address of the argument, as well as other information, such as the length of the 
argument. 

Each of the following subsections indicates the passing mechanisms supported by each language. 
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1.2.1 VAX—11 BASIC 


VAX-11 BASIC supports these methods with the three BY clauses of the CALL statement: 

1. BY VALUE specifies the by immediate value mechanism. 

2. BY REF specifies the by reference mechanism. 

3. BY DESC specifies the by descriptor mechanism. 

The default parameter passing mechanisms for the CALL statement correspond precisely to the way a 
BASIC subprogram expects to receive the parameters. You need to use a BY clause only when the 
calling program and called procedure are written in different languages or when calling VAX system 
services. 


1.2.2 VAX-11 COBOL 

The default mechanism for passing parameters is by reference. In some cases, however, a function 
reference or call to a non-COBOL procedure requires arguments in a different form. COBOL pro¬ 
vides three qualifiers for the CALL [USING] statement for passing parameters when you cannot use 
the COBOL default mechanism: 

1. BY VALUE specifies the by immediate value mechanism. 

2. BY REFERENCE specifies the by reference mechanism. 

3. BY DESCRIPTOR specifies the by descriptor mechanism. 

These qualifiers can appear only in actual argument lists. See the VAX-1 1 COBOL User's Guide for 
additional information. 


1.2.3 VAX-11 FORTRAN 

The default mechanism for passing parameters is by reference or by descriptor, depending on the 
argument's data type. In some cases, however, a function reference or a call to a non-FORTRAN 
procedure requires arguments in a different form. Therefore, FORTRAN provides three compile-time 
functions for passing parameters when you cannot use the FORTRAN default mechanism: 

1. %VAL specifies the by immediate value mechanism. 

2. %REF specifies the by reference mechanism. 

3. %DESCR specifies the by descriptor mechanism. 

These functions can only appear in actual argument lists. Note that they need never be used to call a 
procedure written in FORTRAN. 


See the VAX— 1 1 FORTRAN User's Guide for additional information. 
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1.2.4 VAX-11 PL/I 


PL/I passes all arguments by reference except character strings and arrays with variable extents. You 
only need to specify the data type in the parameter descriptor for an argument to be passed by 
reference. When an argument is passed by reference, PL/I places the address of the actual argument 
in the argument list. This address can be interpreted as a pointer value. Using the built-in function 
ADDR, you can explicitly specify a pointer value as an argument for data to be passed by reference. 

You must use the VALUE attribute in a parameter declaration for an argument to be passed by 
immediate value. Similarly, you must use the ANY attribute in a parameter declaration for an argu¬ 
ment to be passed by descriptor, along with the DESCRIPTOR(arg) built-in function in the actual 
argument lists. 


1.3 Data Type and Passing Mechanism Tables 

Table GEN-1 gives a brief summary of the support that each language gives to the VAX-11 data 
types, as defined by the VAX-11 Procedure Calling Standard. This table shows which languages 
support which data types and the default passing mechanism for each supported data type. 

Tables GEN-2 through GEN-13 give the same information in more detail. Given a standard data 
type, these tables indicate whether the language supports it, what passing mechanism the language 
uses by default to pass the data type, and what passing mechanism(s) you can force explicitly. In the 
case of passing mechanisms that are supported by extensions to the language, the tables also give the 
language keyword that forces the passing mechanism. These language keywords appear in uppercase 
letters. Finally, the tables tell you whether the VAX-11 Procedure Calling Standard permits a particu¬ 
lar combination of data type and passing mechanism. 

Tables GEN—2 through GEN-17 each contain two data sets: calling procedure and called procedure. 
The calling procedure column summarizes the options when the calling program is written in the 
specified language. The called procedure column contains the options when the called program is 
written in the specified language. 

Tables GEN—14 through GEN—1 7 give similar information for data passed in arrays. They indicate the 
default passing mechanism for passing each supported data type in an array, and the passing mecha¬ 
nism^) supported by extension to the language. Note that the tables for arrays include only the data 
types supported by each language, while the tables for data passed by element contain all the 
VAX-11 data types. 

For example, looking at Table GEN-2, we see that BASIC passes a VAX-11 word data type when you 
specify WORD as the data type. The default passing mechanism is by reference. By an extension to 
the language, however, VAX—11 BASIC allows you to pass a word by immediate value, if you specify 
BY VALUE, or by descriptor, if you specify BY DESC. In the latter case, BASIC uses a scalar and string 
descriptor. That is, the class field in the descriptor contains DSC$K_CLASS_S, equivalent to a value 
of one. See Appendix C of the VAX—/ 7 Run-Time Library Reference Manual for explanations of the 
descriptor classes. 
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Table GEN-1: VAX-11 Data Types Supported by VAX-11 Languages 
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VAX-11 PL/I supports four varieties of text-string data. See Table GEN-12. 

VAX-11 COBOL uses COBOL intermediate temporary data type internally to store intermediate 
results of arithmetic operations. You cannot pass parameters of CIT data type. 




Table GEN-2: VAX-11 BASIC - Atomic Data Types 
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Table GEN-3: VAX-11 BASIC - String Data Types 
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Table GEN-4: VAX-11 BASIC - Miscellaneous Data Types 
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Table GEN-5: VAX-11 COBOL - Atomic Data Types 
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Violates Prohibited; violates VAX-11 Procedure Calling BY VALUE DEC syntax extension to force immediate 

Call Std Standard value mechanism 








Table GEN-5: VAX-11 COBOL - Atomic Data Types (Cont.) 
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Table GEN-6: VAX-11 COBOL - String Data Types 
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Table GEN-8: VAX-11 FORTRAN - Atomic Data Types 
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Table GEN-8: VAX-11 FORTRAN - Atomic Data Types (Cont.) 
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Table GEN-10: VAX-11 FORTRAN - Miscellaneous Data Types 



Violates Prohibited; violates VAX-11 Procedure Calling Default Default passing mechanism is by procedure descriptor 

Call Std Standard Class_P (DSC$K_CLASS_P = 5) 

Default Default passing mechanism %DESCR DEC syntax extension to force procedure descriptor 



















Table GEN-11: VAX-11 PL/I - Atomic Data Types 




.2 ^ c a 

U ^ 3 © 

C O ■= a 
□ oc a> 
lZ K C 


f 1 X 

JS ^ 

.5 To 

> U 


3 

^ro 

'a) 

Q 


3 

"<l 

Q 


3 

'-2 

a) 

Q 


ST X 
a; 4= 

* ^ 
.9 ra 
> U 


3 

■g 

g 

u 

a. 

-o 

_aj 

"75 

u 


Q. 
CQ y 

</i 

U 

Q 


a» 

u 

c 

>- a 

“ a; 


a; 

oc 


.2 <u 

-"S-i 


3 

"cl 

Q 


3 

■-2 

'ID 

O 


3 

>-2 

"aj 

O 


i/i 

OJ 

75 


X! 

cn 


i/i 

_<l 

75 


x 

<25 


00 


I> 


.9 no 


.9 15 


> u > u 


1/1 

O) 

X 

1/1 

OJ 

X 

4—' 

75 

<25 

75 

on 

o 

“ro 

o 

15 

> 

u 

> 

U 


o 

Q. 
>• X 
u 

a 


00 


a» 

V. 

3 

■g 

g 

k. 

a. 

SC 

# c 

"75 

U 


co 


a* 

u 

c 

>- £ 
“ fc 

"S 

OC 


.2 <l 

1-i 

i > 



LO 


c-n 


C-n 

> 

1 

i/l 

i^ 

> 

1 

i/i 

i/i 

> 

1 

1/1 

1/1 

z 

z 

z 

< 

ro 

< 

no 

< 

ra 


u 


u 


u 







~3 


"5 


~3 


,_2 


•IS 


k2 


"aj 


"cD 


"aj 


Q 


O 


Q 



1/1 

J9 

X 

i/i 

_<L 

X 

LU 

LU 

LU 

i/i 

a/ 

X 

i/i 

OJ 

X 

75 

25 

75 

<25 

D 

_i 

Z) 

Z) 

75 

<25 

—4 

ro 

25 

o 

15 

o 

15 

< 

< 

< 

c 

15 

O 

15 

> 

U 

> 

U 

> 

> 

> 

> 

U 

> 

U 





r\ 

in 

ro 

Q 

O 

D 


UJ 

LU 


X 

X 

U_ 

LL_ 

LU 


ill 

0C * ro 
c Z -7 

-■ Q 


7 ! 3 g. 

X e ^ 

•< ^ Q H- 

> 5o 


a; ^ 

o 


DO 


m 3 


ro 

C 

O 

ro 


u 

_i 

U 

—. 'oc 

Z) 

"do 


'oc 

-2 O 

CQ _J 


O 

Z 

_i 

o 
_1 


X 

ro 

3 — 

O' ro 
— u 

x 'oc 

6 s 


IS 

u 

o 


ro 

u 


X DC 

o 3 


aj i- 

X <l 

x" DC 
CQ qj 

CO £ 


O X 

> aj 

> DC 

—' a> 

£ 1 


DC X 
C ^ 
O DO 
—I 0J 


X 

ro 4-4 

= a; 
O' 00 

X (U 


TO —4 

u £ 

Q S? 


= O -E o -E 


> 

a» 


O) 

3 


• 

CL 



X 

15 



> 


OC 



c 

OJ 



75 


1/1 

X 



0/ 


no 

E 


ro 

im 


U 

i/i 

0/ 


a; 

u 


u 

k- 


i_ 



c 




o 


ri 




c 


c 

_o 



1/1 


1/1 

c 


c 

a/ 


a/ 

X 


"x 

CL 


CL 

X 


X 

IS 

E 

IS 

c 

i/i 

c 

>- 

c 

>- 

i/i 

ro 

1/1 


X 


U 

U 

U 

LU 

oj 

X 

Q 

E 

Q 


> c 
Z 'T 

< — 
3 

CD 

.± ac 
£ £ 


Q 

X 

c 

ro 

c 
C 

75 

k_ 
_2 
u 

CL) 

^ "O 

u Z. 

LO (3 

Q d; 

r e 

o 2 

.§- s. 

y .E 


(T) 

I 

</1 

LO 

< 

U 

I 

X 


c 

O 

u 

c 

3 


LU 


LO 

1 

z 

> 


1 

LT) 

< 

z 

ra 

> 

< 

U 


DC 

C 


ro 

u 


<L 

L- 

3 

X 

CL 

U 

o 

k- 

O- 


X 

< 

> 

i/i 

_CL 

la 

o 

> 


X 

.CL "O 
'ri ra 

2 12 

Q_ <25 


E 

i/i 

c 

no 

X 

U 

CL 

E 

DC 

C 

'i/i 

i/i 

ro 

Q. 


3 

k2 

"cl 

Q 


>- 

x 

X 

_CL 

kC 

o 

Cl 

Cl 

3 

i/i 


i/i 

CL 

+—-> 

ro 


X — 


LO 


.9 ra 

> u 


3 

-IS 

"a3 

O 



The Language Independent Environment 


GEN 17 








Table GEN-11: VAX-11 PL/I - Atomic Data Types (Cont.) 


o - * = 


■o — 

3 

c cc 


U </> 3 O 

c 3 +- QC 

3 0£ 3 

lZ C* C 


3 


"O 

o 

u 

o 


TO 

_3 

"to 

U 


3 

i— 

3 

■o 

3 

u 

o 


oc 

"to 

U 


CL 

>- -z 

CO ^ 

(/) 

O 

Q 


a» 

u 

c 

> £ 

v\ J- 

3 

'aJ 

QC 


CQ 


3 

.2 3 

>.-0 3 

co £ "to 

E > 
E 


Q. 

CQ 

(/) 

a> 

Q 


3 

u 

c 

cq £ 


a; 

QC 


O) 

.2 * 
>.-0 3 

CQ £ TO 

E > 
E 


T- -O 

7 | s g. 

X r ^ 

■< rg Q H- 

75 


3 

,_ro 

3 

Q 


3 

■IH 

ai 

O 


3 

,_TO 

a; 

Q 


1/1 

OJ 

3 

1/1 

a 

3 

1/1 

0/ 

3 

1/1 

3 

3 

1/1 

OJ 

"3 

00 

75 

1 9 

75 

00 

75 

.—■ 

ra 

(Z 

ra 

7) 

O 

"to 

o 

"?0 

o 

"to 

o 

~TO 

o 

"to 

> 

U 

> 

u 

> 

u 

> 

u 

> 

u 


3 

3 

3 

3 

, TO 

,_TO 

, TO 

'35 

3 

a 

ai 

'ai 

Q 

Q 

O 

Q 


i/i 

OJ 

"3 

4 —' 

i/i 

a; 

”3 

4 -^ 

i/i 

a 

~o 

ai 

3 

"3 

1/1 

a; 

"3 

1/1 

a 

"3 

4 —' 

1/1 

a; 

"3 

1/1 

OJ 

"3 

TO 

DO 

TO 

DO 

TO 

DO 

TO 

75 

TO 

75 

TO 

DO 

TO 

75 

TO 

75 

C 

"to 

O 

"to 

o 

"to 

o 

TO 

O 

TO 

O 

TO 

o 

"to 

O 

TO 

> 

U 

> 

U 

> 

U 

> 

u 

> 

u 

> 

u 

> 

u 

> 

u 


> 


DO 


DO 


DO 


DO 

1 

/I 

i/I 

> 

1 

> 

1 

i/i 

i/i 

> 

1 

z 

1/1 

1/1 

z 

z 

/l 

1/ 

TO 

< 

TO 

< 

TO 

< 

TO 

u 


u 


u 


u 


3 

3 

3 

3 

,_TO 

■2 

. ‘■o 

TO 

a 

a 

a 

3 

Q 

Q 

D 

Q 


ZD 

_i 

< 

> 


3 

DC 

<U 

a. 

a* 

E 

TO - 

04 

dD 

LO 

ro 

LO 

ro 

TO 

3 

>~ 

i— 

1— 

h~ 

1— 


DO 

TO 

TO 

< 

< 

< 

t^ 

< 

c 

_1 

LL- 

C 

TO 

TO 

z 

o 

c 

c 

_J 

Q 


Ll_ 

_1 

LL. 

u_ 


i/i 

3 

"3 

i/i 

3 

"3 

1/1 

3 

"3 

i/i 

3 

3 

/l 

3 

3 

i/i 

3 

3 

+—> 

i/i 

3 

3 

i/i 

3 

3 

TO 

75 

TO 

75 

TO 

75 

TO 

75 

TO 

Cn 

TO 

DO 

TO 

75 

TO 

75 

O 

"to 

O 

TO 

C 

"to 

O 

TO 

O 

TO 

C 

"to 

c 

"to 

o 

"to 

> 

U 

> 

u 

> 

U 

> 

u 

> 

U 

> 

U 

> 

U 

> 

U 


















__ v 

^^ 

__^ 




X 


X 


X 



3 

DC 

C 

DC 

DC 

DC' 


3 

Q- 


3 


3 


3 



TO 

3 

c 

4—' 

c 

a 

4—> 



Q- 


Q. 


Q_ 

E 


_ 1 

TO 

_o 

TO 

TO 

TO 


F 


E 


E 



O 

CQ 

3 

_o 

_o 

_o 


o 


O 

u 


o 

u 


o 

3 


E 

^1 

LL_ 

1 

Q 9 

1 

u 9 

1 

i 9 

FC 

1 

LL. 

DC 

1 

Q 

GC 

1 

a 

HC 

1 

I 

CIT 

o 

u 

3 

C 


>~ 

L_ 

ra 

L_ 

o 

Q. 

E 

O) 


> 

a> 


a 

_3 

TO 

> 

a; 
to 

3 

3 

E 

E 

3 

u 


c 

_o 

’(/> 

c 

a 

x 

a> 

T3 E 

c .£ 
> c 
t/> ra 

_C 

U 2 
uj a 

Q E 


DC 

C 

"to 

U 

3 

k_ 

3 

-o 

OJ 

u 

o 


i/i 

3 

to 


3 

75 


.2 to 

> U 


DO 

c 


_TO 

ra 

u 

1/1 


a 

u 


do 

I 

DO 

do 

< 

_i 

U 


-a 

c 

ra 

c 

o 

4 —• 

TO 

_TO 

U 

a 

-o 


c ' 

o ^ 

7/j to- 

c 
a 
x 

OI 


U 

DO 

Q 


X 

2 

c 

> 

1/1 


U 

LLJ 

Q 


o 

4—> 

Q. 

i_ 

a 

i/i 

a 

-a 


a c 
a o 

IS 

03 3 
Q_ 

C 


3 

> J3 
Z QC 

< o 

I— 

1/1 Ql. 

E 5 

3 U 

O" ^ 

S uu 
oc O 


LLJ 


DO 

I 

Z) 

> 

t/1 

_1 

tZ) 

< 

z 

ra 

> 

< 

U 


i 

X 

E 

i/i 


< 

> 

E 

TO 

_ 


3 


1/1 

U 

— 1 

3 

3 

Cl 

TO 

E 

> 

o 

DC 

3 

> 

C 

i/i 

3 

3 

. ^ 

i/i 

L 

3 

TO 

O 

3 -q 

a. 

Q. 

Q. 

Id to 

-4 

D 

•— -a 

J 

1/1 

-S c 

ra 

— - 

O ra 

'3 

O 

o_ 75 

Q 

z 


3 

'ai 

Q 


GEN 18 


The Language Independent Environment 
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Table GEN-12: VAX-11 PL/I - String Data Types (Cont.) 
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1.3.2 Data Types Passed in Arrays 


The following tables indicate the data types that each language supports for passing data in arrays. For 
each VAX—11 standard data type supported by the language, the table shows the default passing 
mechanism and the language syntax for forcing other passing mechanisms. 

Table GEN-14: VAX-11 BASIC - Data Types and Passing Mechanisms for Data Passed in Arrays 


VAX-11 Standard 
Data Type 

Calling Procedure 

Called Procedure 

By By 

Reference Descriptor 

By By 

Reference Descriptor 

Atomic Data Types 

All supported 
types 

BY REF Default 

Class_A 

Default 

Class_A 

String Data Types 

T (ASCII Text) 

STRING 

VARIABLES 

MAP/COMMON 

VARIABLES 

BY REF Default 

Class_A 

BY REF Default 

Class_A 

Default 

Class_A 

Default 

Class_A 



Key 


Not supported 

BY REF 

DEC syntax extension to force by reference passing 


mechanism 

Default 

Default passing mechanism is array descriptor 

Class_A 

(DSC$K_CLASS_A = 4) 



Table GEN-15: VAX-11 COBOL - Data Types and Passing Mechanisms for Data Passed in Arrays 


VAX-11 Standard 
Data Type 

Calling Procedure 

Called Procedure 

By By 

Reference Descriptor 

By By 

Reference Descriptor 

Atomic Data Types 

All supported 
types 

Default BY DESCRIPTOR 

Class_NCA 

Default 

String Data Types 

All supported 
types 

Default BY DESCRIPTOR 

Class_NCA 

Default 
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Key 


- 

Not supported 

Default 

Default passing mechanism 

BY DESCRIPTOR 

DEC syntax extension to force noncontiguous 

Class_NCA 

array descriptor (DSC$K_CLASS_NCA = 10) 


Table GEN-16: VAX-11 FORTRAN - Data Types and Passing Mechanisms for Data Passed 
Arrays 


VAX-11 Standard 

Data Type 

Calling Procedure 

Called Procedure 

By By 

Reference Descriptor 

By By 

Reference Descriptor 

Atomic Data Types 

All supported 
types 

Default %DESC 

Class_A 

Default 

String Data Types 

T - ASCII text 

Default %DESC 

Class_A 

Default 


Key 


- 

Not supported 

Default 

Default passing mechanism 

%DESC 

DEC syntax extension to force array descriptor 

Class_A 

(DSC$K_CLASS_A = 4) 


Note 

VAX—11 FORTRAN passes arrays by column. That is, arrays are passed in order 
beginning with the last (rightmost) parameter. 


in 
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Table GEN-17: VAX-11 PL/I - Data Types and Passing Mechanisms for Data Passed in Arrays of 
Constant Extent (ARRAY (n)) 


Note 

When you have specified the data type, PL /I lets you choose whether to pass an array 
by descriptor or by reference. For example, for CFHARACTER (n), if you want to pass 
the data in an array by descriptor, use ARRAY (*). If you want to pass the data by 
reference, use ARRAY (n). 



Calling Procedure 

Called Procedure 

VAX-11 

Standard 

Data Type 

By 

Reference 

By 

Descriptor 

By 

Reference 

By 

Descriptor 

Atomic Data Types 





All supported 
types 

Default 


Default 


String Data Types 





T (ASCII text) 





CHARACTER (n) 

Default 

- 

Default 

- 

CHARACTER (*) 

- 

Dope 

- 

Dope 

CHARACTER 
VARYING (max) 

Default 

- 

Default 

- 

CHARACTER 
VARYING (*) 

— 

Dope 

— 

Dope 


Key 


- 

Not supported 

Default 

Default passing mechanism 

Dope 

DEC syntax extension to force pass by dope vector. 


For a definition, see PL/I division, Chapter 4. 
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Table GEN— 18: VAX— 11 PL /I - Data Types and Passing Mechanisms for Data Passed in Arrays of 
Variable Extent (ARRAY (*)) 



Calling Procedure 


Called Procedure 


VAX-11 Standard 
Data Type 

By 

Reference 

By 

Descriptor 

By 

Reference 

By 

Descriptor 

Atomic Data Types 





All supported 
types 


Default 

Class_NCA 


Default 

Class.NCA 

String Data Types 

T - ASCII text 





CHARACTER (n) 


Default 

Class_NCA 

- 

Default 

Class.NCA 

CHARACTER (*) 


Default 

Class_NCA 


Default 

Class.NCA 

CHARACTER 
VARYING (max) 

- 

Default 

Class. VSA 

- 

Default 
Class. VSA 

CHARACTER 
VARYING (*) 

- 

Default 

Class.VSA 

- 

Default 

Class.VSA 


Key 


- 

Not supported 

Default 

Default passing mechanism is noncontiguous array 

Class_NCA 

descriptor (DSC$K_CLASS_NCA = 10) 

Default 

Default passing mechanism is varying string array 

Class_VSA 

descriptor (DSC$K_CLASS_VSA = 12) 
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Chapter 2 

File Organizations and Record Formats 


The Run-Time Library language-support procedures normally call VAX-11 Record Management 
Services (RMS) to perform file operations. This technique ensures that languages will handle files 
consistently. This chapter covers the following topics: 

• VAX-11 languages and RMS file structure 

• Language I/O operations and RMS functions 

• Language statement qualifiers and the contents of the RMS File Access Block, Record Access Block, 
and Extended Attribute Block (BASIC and FORTRAN) 

• The BASIC and FORTRAN USEROPEN keyword 

2.1 VAX-11 Languages and RMS File Structure 

This section describes the characteristics of RMS files, including file organization, file access modes, 
record formats, and record attributes. It then shows how each language specifies each characteristic. 
Table GEN-19 summarizes this information and lists the language keyword that corresponds to each 
characteristic. 

2-1-1 RMS File Structure 

RMS provides the following file characteristics: 

• File organization 

- Sequential 

- Relative 

- Indexed 
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• Record access mode 

- Sequential 

- Random by key 

- Random by record's file address 

- Dynamic 

• Record format 

- Fixed-length records 

- Variable-length records 

- Variable-length records with fixed-length control field 

• Record attributes 

- Implied carriage return 

- FORTRAN carriage control 

- Print file 

- Block (sequential files only) 

2.1.1.1 RMS File Organization — RMS provides three types of file organization: sequential, relative, 
and indexed. 

• Sequential organization 

In a sequential file (allowed on all storage media), records are arranged according to the order in 
which they were entered. Thus, the physical storage location of each record is fixed in relation to 
all the other records. 

• Relative organization 

In a relative file (allowed only on disk devices), RMS places records in fixed-length cells that are 
consecutively numbered relative to the beginning of the file. Each record is assigned to a specific 
cell. The number associated with that cell is then attached to the record it contains. You access 
records in a relative file by specifying the number of the cell, called the relative record number or 
relative key. You can also access a relative file sequentially. 

• Indexed organization 

In an indexed file (allowed only on disk devices), RMS stores records in a predefined order. The file 
contains one or more indexes that define the order of the records by associating each record with a 
key value. RMS builds an index for each key defined for the file. Each record contains a field in 
which the value of a key is stored. You access a record randomly by supplying its key values. Also, 
since the index lists the key values in ascending order, you can access the records sequentially 
according to key value. You can use more than one index to access an indexed file, but you must 
use at least one. 

For more detailed information, see the Introduction to VAX—7 7 Record Management Services. 
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2.1.1.2 Record Access Modes — VAX-11 RMS provides three record access modes: sequential, 
random by key, and random by record's file address (RFA). Your program issues a series of requests to 
RMS to retrieve or store records in a file. RMS interprets these requests according to the organization 
of the file. 

• Sequential access 

If the file is organized sequentially, RMS stores or retrieves the record in the next position after the 
current one. For a relative file, RMS accesses records in succession by cells, ignoring empty cells. If 
the file is an indexed file, the next record processed is the record whose key value comes next in 
the index. 

• Random access by key 

For sequential files, RMS permits random access by key only on disk files and if the records are of 
fixed length. The key is the relative record number. For relative files, the key is the relative record 
number. For indexed files, you must give the key of reference and the key value of the record. 

• Random access by record's file address 

Every record in a file has a unique address in the file — the record's file address (RFA). A program 
can read records in a disk file of any organization by using the RFA. RFA mode is the only way of 
randomly accessing a sequential file with variable-length records. 

The RFA remains constant as long as the record exists in the file. RMS returns the RFA in the 
random access parameter block when the record is read or written. You can then use the RFA as a 
pointer to the record. 

RMS lets you dynamically change from one mode to another. For example, you can randomly access 
a particular record in a file and then use that record as the starting point for sequentially accessing the 
records that follow. 

For more detailed information, see the VAX-11 Record Management Services Reference Manual. 


2.1.1.3 Record Formats — RMS permits fixed-length and variable-length records, as well as variable- 
length records with fixed-length control. RMS also lets you indicate that the record format is 
undefined. 

• Fixed-length records 

In a file of fixed-length records, all records are the same size. You set the number of bytes per 
record when you create the file. 

• Variable-length records 

Variable-length records do not need to be the same size, so each record occupies only as much 
space as it needs to contain the data. You specify the maximum record length when you create the 
file. RMS attaches a count field that specifies its length before each record. In files stored on disk, 
this field is a two-byte binary value that includes only the length of the record, not that of the count 
field (V format). In tape files, the count field is a four-byte decimal value that does include the count 
field (D format). Before returning the count, RMS adjusts the value automatically to include only the 
length of your data. 
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• Variable-length records with fixed-length control 

Variable-length records with fixed-length control records include a variable-length data portion and 
a fixed-length control field. For example, the SOS text editor uses the control field for line numbers, 
and RMS print file format (see Section 2.1.4) uses it for carriage control. When you create the file, 
you specify both the size of the largest record and the size of the fixed control area. When you write 
a record, RMS prefixes the record with a count field that describes the total length of the fixed- 
length control field and the variable-length data portion. 

• Undefined record format 

The undefined record format is valid only for sequential file organization and can be processed only 
through block I /O. 

For more information, see the Introduction to VAX—11 Record Management Services and the VAX-11 
Record Management Services Reference Manual. 


2.1.1.4 Record Attributes — VAX—11 RMS lets you initialize the record attributes field with special 
control information pertaining to the records in your file. These attributes are: 

• Implied carriage control 

Implied carriage control means that each record is to be preceded by a line feed and followed by a 
carriage return when the record is written to a carriage control device such as a line printer or 
terminal. 

• FORTRAN carriage control 

FORTRAN carriage control means that the first byte of each record contains a control character. 
The contents of this byte are: 


Value 

Decimal 

ASCII 

Character 

Meaning 

0 

(null) 

Null. Sequence: print buffer contents. 

32 

(space) 

Single-space. Sequence: line feed, print buffer contents, carriage return. 

48 

0 

Double-space. Sequence: line feed, line feed, print buffer contents, carriage return. 

49 

1 

Page eject. Sequence: form feed, print buffer contents, carriage return. 

43 

+ 

Overprint. Sequence: print buffer contents, carriage return. 

36 

$ 

Prompt. Sequence: line feed, print buffer contents. 

All other 
values 


Same as ASCII space character. Sequence: line feed, print buffer contents, carriage return. 


• Print file format 

Print file format refers to a type of variable-length record with fixed-length control area. The control 
area of the record contains the print file information, including carriage control. The first byte of the 
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control area determines the carriage control performed before the record is printed; the second byte 
determines the carriage control performed after the record is printed. The encoding scheme of both 
bytes is as follows: 


Value 

Decimal 

Meaning 

0 

Null. No carriage control is specified. 

1-127 

The number of line feeds followed by one carriage return. 

128 - 159 

Output the single ASCII control character specified by the five low-order bits which are translated as 
ASCII characters 0 through 31. 

192 - 223 

Output the single ASCII control character specified by the five low-order bits which are translated as 
ASCII characters 128 through 159. 

224 - 255 

Reserved. 


• No carriage control 

No carriage control means that each record is printed without any carriage control before or after 
the buffer contents. 


• Block boundaries 

The block boundaries attribute indicates whether the records in an RMS file cross block boundaries. 
This attribute applies only to files with sequential organization. 

2.1,2 Files in VAX-11 BASIC 

This section describes how VAX-11 BASIC relates to RMS file characteristics listed in Section 2.1. 

2.1.2.1 VAX-11 BASIC File Organization — VAX-11 BASIC supports the three RMS file organization 
types: sequential, relative, and indexed. It also supports terminal-format files, block I/O files, virtual 
array files, and undefined files. Normally, you define the type of file organization in VAX-11 BASIC 
with the ORGANIZATION clause in the OPEN statement, using the keyword that corresponds to the 
type of file you are creating. 

• Sequential organization 

ORGANIZATION SEQUENTIAL. This is the default organization for BASIC files. 

• Relative organization 
ORGANIZATION RELATIVE. 

• Indexed organization 

ORGANIZATION INDEXED. You can also create an indexed file in BASIC with the VAX-11 RMS 
EDIT/FDL Utility. 

• Terminal-format 

Terminal-format files are sequential files of variable-length records. Each record is less than or equal 
to a specified record size. You write records to a terminal-format file with the PRINT # and 
PRINT # USING statements, and read them with INPUT #, INPUT LINE #, and LINPUT # 
statements. 
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• Block I/O 


Block I/O files are random access files that store one or more data records in each block. You 
create a block I /O file by using the VIRTUAL keyword in the ORGANIZATION clause, along with a 
RECORDSIZE value that is a multiple of 512. You indicate the location and format of the data by 
blocking and deblocking records with MAP and MOVE statements. 

• Virtual file array 

VAX-11 BASIC supports virtual file arrays for compatibility with PDP-11 BASIC-PLUS-2. They are 
treated like arrays in memory, but you set their dimensions with DIM # statements. See the 
VAX—1 1 BASIC User's Guide for more information. 

• Undefined files 

Undefined files are files with unknown characteristics. You specify these files by using the 
UNDEFINED keyword in the OPEN statement. This action causes BASIC to ignore the file attribute 
checking normally done on files. See the VAX-11 BASIC User's Guide for more information. 

2.1.2.2 VAX-11 BASIC Record Access Modes — VAX—11 BASIC supports RMS sequential access and 
random access by key. The access mode for VAX-11 BASIC files is determined as follows: 

• Sequential access 

Sequential access is the default mode for all types of file organization. If you do not use the KEY or 
RECORD keyword in a GET, FIND, or PUT statement, the file is accessed one record after another. 
The order of processing is determined by the file's organization: by record number in sequential 
files, by cell number in relative files, and by key value in indexed files. 

• Random access by key 

Random access by key is used to access files that have been declared RELATIVE or INDEXED in the 
ORGANIZATION clause. For indexed files, the record is specified by key value in the GET or FIND 
statement, using the KEY #int-exp keyword. For relative files, the RECORD num-exp keyword in 
the GET, FIND, or PUT statement indicates the relative record number of the record. 

2.1.2.3 VAX-11 BASIC Record Formats— VAX-11 BASIC permits fixed-length and variable-length 
RMS record formats. You declare a file with fixed-length records by using the FIXED keyword in the 
OPEN statement. You declare a file with variable-length records by using the VARIABLE keyword in 
the OPEN statement. The default format is variable-length. 

2.1.2.4 VAX-11 BASIC Record Attributes — The RECORDTYPE clause determines the file's I/O 
control attributes: 

• Implied carriage control 

RECORDTYPE LIST indicates implied carriage control. This is the default for all organizations 
except VIRTUAL (block I/O) and terminal-format to a terminal device. 

• FORTRAN carriage control 

RECORDTYPE FORTRAN indicates a control character in the record's first byte. 

• Print file format 

When the output device is a terminal, VAX—11 BASIC uses print file format to implement the 
terminal-format file. 
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• No carriage control 

RECORDTYPE NONE indicates no carriage-control attributes. This is the default for VIRTUAL files. 

• Attributes previously defined 

RECORDTYPE ANY indicates a match with any record attributes when you open a file created by 
an unknown language processor. If you create a new file with the ANY qualifier, BASIC uses 
implied carriage control for all file organizations except VIRTUAL. For VIRTUAL files, BASIC uses 
no carriage control. 

• Block boundaries 

By default, BASIC records cross block boundaries. When you use the NOSPAN clause in an OPEN 
statement, the records of your file will not cross block boundaries. 

2.1.3 Files in VAX-11 COBOL 

This section describes how VAX-11 COBOL relates to the RMS file characteristics discussed 
in Section 2.1. 

2.1.3.1 VAX-11 COBOL File Organization — VAX-11 COBOL allows the standard RMS file organiza¬ 
tion types: sequential, relative, and indexed. In the FILE-CONTROL paragraph of your program, the 
ORGANIZATION clause within the SELECT clause determines the organization of the file. 

• Sequential organization 

This is the default organization type. You can also declare a file sequential by specifying 
ORGANIZATION IS SEQUENTIAL. 

• Relative organization 

Declare the file with ORGANIZATION IS RELATIVE. 

• Indexed organization 

Declare the file with ORGANIZATION IS INDEXED. You can also create an indexed file with the 
VAX-11 RMS EDIT/FDL Utility. 

2.1.3.2 VAX-11 COBOL Record Access Modes — VAX-11 COBOL supports the standard RMS rec¬ 
ord access modes. The ACCESS MODE clause determines the order of record access. This clause can 
appear either in the SELECT clause in the FILE-CONTROL paragraph of the Environment Division, or 
in the File Description (FD) of the Data Division, but not both. 

• Sequential access 

ACCESS MODE IS SEQUENTIAL establishes sequential access for any type of file. Only sequential 
access is permitted on sequentially organized files. This is the default mode for all organizational 
types. 

• Random access by key 

Random access by key is permitted only on relative and indexed files. When you specify ACCESS 
MODE IS RANDOM, you must add the RELATIVE KEY IS rel-key clause for a relative file and the 
RECORD KEY IS rec-key clause for an indexed file. The data-name rel-key represents an unsigned 
integer data item indicating the relative record number of the record to be accessed. The data item 
rec-key indicates the key value of the record. 
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• Dynamic access 

If you specify ACCESS MODE IS DYNAMIC, the program can access records both sequentially and 
randomly. 

2.1.3.3 VAX-11 COBOL Record Formats — In VAX-11 COBOL, the compiler determines record 
format from a combination of record description entries and the RECORD CONTAINS clause. 

• Fixed-length records 

If both of the following conditions are true, the compiler generates the fixed-length format for a file 
by default. It sets the record length to the maximum of the lengths given in the file's record 
descriptions. 

- The file description for the file does not contain a RECORD CONTAINS integer—1 TO 
integer-2 phrase or a RECORD VARYING phrase. 

- The program does not establish a print-controlled file by using a WRITE ADVANCING state¬ 
ment, a LINAGE clause, or an APPLY PRINT—CONTROL clause in association with the file. 

• Variable-length records 

The compiler generates the variable-length format when the file description contains a RECORD 
VARYING clause or a RECORD CONTAINS nl TO n2 clause. 

• Variable-length records with fixed-length control 

VAX-11 COBOL uses variable-length records with fixed-length control area for print-controlled 
files. Such files are created with WRITE ADVANCING, APPLY PRINT-CONTROL, or LINAGE. 

For further details, see the VAX—11 COBOL User's Guide. 

2.1.3.4 VAX-11 COBOL Record Attributes — VAX-11 COBOL records have either implied carriage 
control or print file format. 

• Implied carriage control 

COBOL uses implied carriage control on files whose organization is sequential. 

• Print file format 

COBOL uses print file format for print-controlled files, created with WRITE ADVANCING, 
APPLY PRINT-CONTROL, or LINAGE. 

• Block boundaries 

VAX—11 COBOL records cross block boundaries. COBOL does not have an option to disable this 
attribute. 

2.1.4 Files in VAX-11 FORTRAN 

In VAX—11 FORTRAN, you set the characteristics of a file with keywords in the OPEN statement. 

2.1.4.1 VAX-11 FORTRAN File Organization — VAX-11 FORTRAN supports the standard types of 
RMS file organization: sequential, relative, and indexed. The ORGANIZATION keyword in the OPEN 
statement establishes the organization of a FORTRAN file. 
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• Sequential organization 

ORGANIZATION = 'SEQUENTIAL'. Sequential is the default organizational type for new 
FORTRAN files. 

• Relative organization 
ORGANIZATION = 'RELATIVE'. 

• Indexed organization 

ORGANIZATION = 'INDEXED'. You can create an indexed file with the OPEN statement or with 
the VAX-11 RMS EDIT/FDL Utility. For further information, see the VAX-11 FORTRAN User's 
Guide. 

2.1.4.2 VAX-11 FORTRAN Record Access Modes — VAX-11 FORTRAN supports RMS sequential 
access, random access by key, and dynamic access. The ACCESS keyword in the OPEN statement 
determines the access mode. 

• Sequential access 

You can select the sequential access mode for any type of file by setting ACCESS = 'SEQUENTIAL' 
or ACCESS = 'APPEND'. 'SEQUENTIAL' is the default access mode for all file types. ACCESS = 
'APPEND' implies sequential access and positions the next record pointer after the last record of the 
file. 

• Random access by key 

For relative and sequential files, random access by key is called direct access in VAX—11 
FORTRAN. You select direct access by using ACCESS = 'DIRECT' in the OPEN statement. For 
relative files, the key is the relative record number. You can use direct access on sequential files 
only when the records are fixed length. In this case, the key is the celJ number. 

For indexed files, RMS random access by key corresponds to VAX-11 FORTRAN keyed access. 
ACCESS = 'KEYED' indicates keyed access. Then each READ statement contains the key value for 
the record to be accessed. 

• Dynamic access 

When you select ACCESS = 'KEYED', you can also access files sequentially. Thus you can use a 
combination of random access by key and sequential access. 

2.1.4.3 VAX-11 FORTRAN Record Formats— VAX—11 FORTRAN supports the RMS fixed-length and 
variable-length formats. It also supports segmented record format, which is specific to FORTRAN. 
The RECORDTYPE keyword in the OPEN statement establishes the record format. 

• Fixed-length 
RECORDTYPE = 'FIXED'. 

• Variable-length 
RECORDTYPE = 'VARIABLE'. 

• Segmented 

RECORDTYPE = 'SEGMENTED'. A segmented record is a single logical record consisting of one or 
more variable-length, unformatted records in a sequentially organized file. Because a segmented 
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record can be any length, each variable-length record within the segmented record contains control 
information in the first two bytes of data to indicate whether it is the first segment in the segmented 
record, the last segment, the only segment, or none of these. This control information is specific to 
FORTRAN and is not supported by RMS for other languages. For more information, see the VAX-11 
FORTRAN User's Guide. 

2.1.4.4 VAX-11 FORTRAN Record Attributes — VAX-11 FORTRAN has three types of carriage- 
control processing for printing files. You select the desired process using the CARRIAGECONTROL 
keyword in the OPEN statement. 

• FORTRAN carriage control 

CARRIAGECONTROL = 'FORTRAN' specifies the first character in the print buffer is the 
FORTRAN carriage-control character. This is the default for formatted files. 

• Implied carriage control 

CARRIAGECONTROL = 'LIST' indicates single spacing between records. 

• No implied carriage control 

CARRIAGECONTROL = 'NONE' specifies no carriage control. 

• Block boundaries 

By default, FORTRAN records cross block boundaries. When you use the NOSPANBLOCKS key¬ 
word in an OPEN statement, the records of your file will not cross block boundaries. 

2.1,5 Files in VAX-11 PL/I 

This section describes how VAX—11 PL/I uses the RMS file characteristics discussed in Section 2.1. 

2.1.5.1 VAX-11 PL/I File Organization — VAX-11 PL/I supports the standard RMS organizational 
types: sequential, relative, and indexed. With the exception of indexed files, you determine the 
organization of a PL/I file by selecting the access mode when you open the file. When you open a 
file with the OUTPUT attribute, PL/I creates a file with the organization that corresponds to the 
access mode you have specified. 

• Sequential organization 

When a PL/I program opens a file with the SEQUENTIAL and OUTPUT attributes, VAX-11 PL/I 
normally creates a new file with sequential organization and saves the previous version. Each 
WRITE statement then adds a new record to the end of the file. 

• Relative organization 

Relative file organization is the default organization for files that are opened with the KEYED or 
DIRECT attribute. When you open a file with the KEYED or DIRECT attribute and the OUTPUT 
attribute, VAX—11 PL/I creates a relative file. 

• Indexed organization 

PL/I indexed sequential file organization corresponds to the RMS concept of indexed file organiza¬ 
tion. To create an indexed sequential file for VAX— 11 PL/I, you must use the VAX—11 RMS 
EDIT/FDL Utility. Once you have created an indexed sequential file with the VAX—11 RMS 
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EDIT/FDL Utility, you can write records to it by opening it with the attributes KEYED SEQUENTIAL 
UPDATE and using PL/I WRITE statements. For more information, see the VAX-11 PL/1 User's 
Guide. 

2. 1.5. 2 VAX-11 PL/I Record Access Modes — VAX-11 PL/I supports all the standard RMS record 
access modes: sequential, random by key, random by record's file address, and block I/O. For a 
more complete discussion of the relation between file attributes named in the file declaration and the 
type of record access used, see "File Description Attributes and Options" in the VAX-11 PL/I 
Encyclopedic Reference. 

• Sequential access 

When you specify SEQUENTIAL in an OPEN statement, PL/I accesses the file sequentially. 

• Random access by key 

For relative or indexed sequential files, or for sequential files with fixed-length record format, PL/I 
direct access corresponds to the RMS concept of random access by key. The DIRECT attribute in an 
OPEN statement indicates this access mode. When you access a file randomly by key, you must use 
the KEY or KEYFROM option in each input/output request. 

• Random access by record's file address 

The RMS concept of access by record's file address corresponds to access by record identification 
in VAX-11 PL/I. To use this access mode, you must do the following: 

- Specify RECORD_ID_ACCESS in the ENVIRONMENT attribute for the file. 

— Supply a two-element array variable to save the record identification of the records. 

— Specify the array variable in the RECORD_ID_TO option on the READ, WRITE, or REWRITE 
statement that accesses a record in the file, and save the value that is returned. 

- Specify the array variable that contains a valid record identification in a RECORD_ID option on 
a READ, REWRITE, or DELETE statement. 

For an example of access by record identification, see the VAX—11 PL/1 User's Guide. 

• Dynamic access 

RMS dynamic access is equivalent to keyed sequential access in VAX-11 PL/I. When you specify 
KEYED and SEQUENTIAL in an input/output, you can use a combination of random access by key 
and sequential access. For example, you can find a particular record by key and begin processing 
records sequentially from that point. 

• Block I/O 

When you specify the BLOCK_IO option of the ENVIRONMENT attribute, the file is accessed by 
block rather than by record. You can access a block I /O file either sequentially or by key, using the 
virtual block number in the KEY or KEYFROM option. 

2.1.5.3 VAX-11 PL/I Record Formats — VAX-11 PL/I supports the standard RMS record formats. 
Fixed-length and variable-length records are allowed for all types of file organization. Variable with 
fixed-length control records are allowed only in sequential and relative files. You specify the record 
format with the ENVIRONMENT attribute when you create a file. 
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• Fixed-length records 

To create a file with fixed-length records, use the FIXED_LENGTH_RECORDS option of the 
ENVIRONMENT attribute. The MAXIMUM_RECORD_SIZE indicates the size of each record. 

• Variable-length records 

Variable-length is the default record format for PL/I files. The MAXIMUM_RECORD_SIZE indicates 
the maximum size for any record in the file. 

• Variable with fixed-length control area 

You declare a file with variable-length records and a fixed-length control area by using the 

FIXED_CONTROI_SIZE option in the ENVIRONMENT attribute. The READ statement returns the 

contents of the fixed control area to a variable named in the FIXED_CONTROI_TO option. The 

REWRITE and WRITE statements modify the fixed control area using the variable specified in the 
FIXED_CONTROI_FROM option. 

• Undefined record format 

When you open a file with the OUTPUT attribute and specify the BLOCK_IO option in the 
ENVIRONMENT attribute, PL/I opens the file with undefined record format. 

2.1.5.4 VAX-11 PL/I Record Attributes — You determine the control attributes of a PL/I file with 
ENVIRONMENT options, as follows: 

• Implied carriage control (CR) 

CARRIAGE_RETURN_FORMAT. This option is the default carriage control for record I/O. See 
Section 2.1.4. 

• Print file format (PRN) 

PRINTER-FORMAT. The PRINTER-FORMAT option specifies that the records in the file contain 
printing and carriage control information in the fixed control area. For further details on using 
printer format, see the VAX—7 7 PL/1 User's Cuide. 

• FORTRAN carriage control (FTN) 

PL/I cannot create a file with FORTRAN carriage control. If PL/I opens a file with FORTRAN 
carriage control, this information can be retrieved using the DISPLAY built-in subroutine. 

• No carriage control 

When you specify ENVIRONMENT (CARRIAGE_RETURN_FORMAT ('O'B)), no carriage control is 
performed before or after the record is accessed. 

• Block boundaries (BLK) 

By default, PL/I records cross block boundaries. When you use the 
BLOCK_BOUNDARY_FORMAT option of the ENVIRONMENT attribute, the records of your file 
will not cross block boundaries. 

2.1,6 Summary of Language Semantics and RMS File Structures 

Table GEN—1 9 indicates the RMS file categories and the language key words that correspond to them. 
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Table GEN-19: Language Keywords and RMS File Structures 
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An asterisk indicates the default characteristic. 
Unsupported by the language semantics. 




















Notes 


1. In VAX-11 BASIC and COBOL, you can create indexed files using the languages' semantics or 
the VAX—11 RMS EDIT/FDL Utility. In VAX-11 FORTRAN, you can create simple indexed files 
with the OPEN statement; for more complex files, use the VAX-11 RMS EDIT/FDL Utility (see 
the VAX-11 FORTRAN User's Guide). In VAX-11 PL/I, you must use the VAX-11 RMS EDIT/ 
FDL Utility to create an indexed file. You can then enter records in the file by using the OPEN 
statement with the attributes KEYED SEQUENTIAL UPDATE. 

2. For compatibility with PDP-11 BASIC-PLUS-2, VAX-11 BASIC supports an organizational type 
called block I/O. A block I/O file is a virtual file array consisting of 512-byte blocks. It is 
declared with the VIRTUAL keyword in the OPEN statement. 

3. FORTRAN supports segmented records (RECORDTYPE = 'SEGMENTED'). See Section 2.1.4.3. 

2.2 VAX-11 Language I/O Operations and RMS Functions 

This section consists of tables showing how each language's statements relate to RMS functions. 

Table GEN—20 shows which BASIC I/O statements invoke RMS system services. 

Table GEN—20: BASIC I/O Statements and RMS Functions 


BASIC Statement 

— 

RMS Function 

GET 

$GET 

PUT 

$PUT 

FIND 

$FIND 

DELETE 

$DELETE 

UPDATE 

$UPDATE 

RESTORE 

$REWIND 

SCRATCH 

$TRUNCATE 

FREE 

$FREE 

UNLOCK 

$RELEASE 


Notes 

1. The first PRINT or INPUT statement to channel 0 causes an $OPEN and $CONNECT to 
SYSSINPUT and SYS$OUTPUT. 

2. If a $DELETE, $FIND, $FREE, $GET, $PUT, or $UPDATE fails because the record stream is 
active, the function is retried after a $WAIT. 
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Table GEN—21 shows which COBOL I/O statements invoke RMS system services. 

Table GEN-21: COBOL I/O Statements and RMS Functions 


COBOL Statement 

RMS Function 

ACCEPT 

$GET 

CLOSE 

$CLOSE, $DISCONNECT, $NXTVOL 

DELETE 

$FIND, $DELETE (See Note) 

OPEN 

$OPEN or SCREATE, SCONNECT 

READ 

$GET 

REWRITE 

$FIND, SUPDATE (See Note) 

WRITE 

$PUT 

DISPLAY 

$PUT 

START 

$FIND 

UNLOCK 

SRELEASE, $FREE 


Note 

$FIND is done only when the DELETE or REWRITE is being performed during random 
access. 

Table GEN-22 shows which FORTRAN I/O statements and keywords invoke RMS system services. 

Table GEN-22: FORTRAN I/O Statements and RMS Functions 


FORTRAN Statement 

RMS Function 

See Note 
Number: 

ACCEPT 

$GET 

5 

BACKSPACE 

$REWIND, followed by one or 
more $GET operations if target 
record is not the first record 


CLOSE 

$CLOSE 


DEFINE FILE 

None 


DELETE(u) 

$DELETE 

5 

DELETE(u,REC = r) 

$FIND, SDELETE 

5 

ENDFILE 

$PUT 

2,5 

FIND 

$FIND 

1,5 

INQUIRE (by file) 

SPARSE, SSEARCH, $OPEN, SCLOSE 


INQUIRE (by unit) 

None 



(continued on next page) 
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Table GEN-22: FORTRAN I/O Statements and RMS Functions (Cont.) 


FORTRAN Statement 

RMS Function 

See Note 
Number: 

OPEN 

SOPEN or $CREATE, $CONNECT 


OPEN (with USEROPEN) 

None 


OPEN (on connected 
unit) 

SPARSE, SSEARCH, $CLOSE, 

$OPEN or SCREATE, SCONNECT 

8 

PRINT 

$PUT 

4,5 

READ 

$GET 

1,5,7 

READ (internal file) 

None 


REWIND 

SREWIND 


REWRITE 

$UPDATE 

5 

TYPE 

SPUT 

4,5 

UNLOCK 

SFREE 

5 

WRITE 

$PUT 

2,5,7 

WRITE (internal file) 

None 



Notes 

1. If the unit is not already open, the first READ or FIND statement on a logical unit invokes an 
$OPEN and a SCONNECT. 

2. If the unit is not already open, the first WRITE or ENDFILE statement on a logical unit causes a 
$CREATE and $CONNECT. 

3. The first ACCEPT statement in a program causes an $OPEN and $CONNECT. 

4. The first PRINT statement in a program and the first TYPE statement in a program each cause a 
SCREATE and SCONNECT. 

5. If a SDELETE, $FIND, $FREE, $GET, $PUT, or SUPDATE fails because the record stream is 
active, the function is retried after a $WAIT. 

6. If RECORDTYPE is explicitly or implicitly 'SEGMENTED', an unformatted sequential READ state¬ 
ment can cause more than one $GET. 

7. If RECORDTYPE is explicitly or implicitly 'SEGMENTED', an unformatted sequential WRITE state¬ 
ment can cause more than one $PUT. 

8. If the specified file name is the same as the name of the currently open file, only the BLANK = 
parameter is changed; otherwise, the current file is closed and the new file opened. 

2.3 The Setting of RMS FAB, RAB, and XAB Fields 

VAX—11 RMS uses data structures called control blocks to contain information about your files and 

the records they contain. 
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The File Access Block (FAB) is a user control block that describes a particular file. The fields of the 
FAB contain file-related information, such as: 

• The name of the file 

• The file organization 

• The record format 

• Disk storage space allocation information 

The Record Access Block (RAB) is the second type of user control block that you allocate, either at 
assembly time or run time, to communicate with VAX—11 RMS. Each RAB is linked to a FAB, and 
represents a record request stream on the file associated with the FAB. Once you establish the link, 
you can use the fields of the RAB to define for VAX-11 RMS the next logical record you want to 
access and various characteristics about that record. 

The Extended Attribute Blocks (XABs) are optional control blocks, which you can use to communicate 
to VAX—11 RMS any file attributes beyond those expressed in the FAB. You use these control blocks 
only when you want to specify exactly, or retrieve information on, the attributes handled by a 
particular XAB. 

The Run-Time Library initializes the RMS FAB, RAB, and XAB fields in response to the OPEN key¬ 
words or to zero. 

The Tables GEN—23 to GEN—25 specify what bits are set in these control blocks when you open a file 
in VAX-11 FORTRAN and BASIC. You determine the contents of each field with the listed language 
keywords, or you can use the USEROPEN keyword (see Section 2.4). 
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Table GEN-23: The Setting of VAX-11 RMS File Access Block Fields 
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Table GEN-23: The Setting of VAX-11 RMS File Access Block Fields (Cont.) 
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Table GEN-23: The Setting of VAX-11 RMS File Access Block Fields (Cont.) 
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Table GEN-24: The Setting of VAX-11 RMS Record Access Block Fields 
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Table GEN-25: The Setting of VAX-11 RMS Extended Attribute Block Fields 


Field 

Name 

BASIC OPEN 

Keyword & Value 

FORTRAN OPEN 

Keyword & Value 

XAB$B_DTP 

Data type of the key 

Set to data type of the key 

Set to data type of the key 

XAB$B_FLG 

XAB$V_CHG 

XAB$V_DUP 

Key options flag 

Changes allowed 
Duplicates allowed 

As specified by CFHANGES 

As specified by DUPLICATES 

0 if key is 0, else 1 

0 if key is 0, else 1 

XAB$W_POS0 

Key position 

Position of key in indexed 
file record 

Position of key in indexed 
file record 

XAB$B_REF 

Key of reference 

Primary key is zero, 
first alternate key is one, 
second alternate key is two, 
and so on... 

Primary key is zero, 
first alternate key is one, 
second alternate key is two, 
and so on... 

XAB$B_SIZ0 

Key size 

Size of key 

Size of key 


2.4 USEROPEN Keyword 

The USEROPEN keyword in an OPEN statement allows your BASIC or FORTRAN program to access 
VAX-11 RMS facilities not otherwise available in BASIC or FORTRAN. The USEROPEN keyword lets 
you call your own procedure during the processing of the OPEN statement. This procedure then 
provides additional parameters to and/or obtains additional results from RMS. 

When executing an OPEN statement, the Run-Time Library sets up the RMS File Access Block (FAB), 
Record Access Block (RAB), Name Block (NAM), and Extended Attribute Blocks (XABs), as well as its 
own internal data structures, according to the OPEN keywords. The USEROPEN keyword causes the 
Run-Time Library to call your procedure instead of calling the RMS procedures. Your procedure 
receives the FAB and RAB addresses and the logical unit number (LUN) for the file specified in the 
OPEN statement. Your USEROPEN procedure must call the RMS procedures SYS$OPEN or 
SYS$CREATE, and SYS$CONNECT. It can modify or obtain information from FAB, RAB, NAM, or 
XAB locations before or after it calls these routines. 

The Run-Time Library calls the USEROPEN procedure as follows: 

status.wlc = myopen (fab.mr.r, rab.mr.r, lun.rl.r) 

Your USEROPEN procedure should call SYS$OPEN if the file to be opened already exists (STATUS = 
'OLD' or FOR INPUT), or SYS$CREATE if it does not. For more information about the RMS control 
structures see the VAX-1 1 Record Management Services Reference Manual. 

To illustrate using a USEROPEN procedure consider the following situation. Normally, the INITIALIZE 
keyword causes VAX—11 FORTRAN to allocate a file contiguously when possible, but not to generate 
an error if the space is not completely contiguous. Elowever, if you wish to create a 1000—block file, 
allocated contiguously, and return an error if the space is not available, use a FORTRAN statement 
such as the following: 

OPEN (UNIT = 10, FILE = 'file.ext', STATUS = 'NEW', 

1 INITIALSIZE = 1000, USEROPEN = create.contis) 
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Similarly, use this statement to create a contiguous file in BASIC: 

10 OPEN 'file.ext' FOR OUTPUT AS FILE #10 1 & 

> FILESIZE 1000% ^CONTIGUOUS >USER0PEN create_contiS 


The following VAX—11 MACRO USEROPEN procedure creates the file after setting the RMS FOP bit 
FAB$V_CTG to specify contiguous allocation: 

♦TITLE CREATE_CONTIG 5 

$F ABDEF 5 define all FAB bits and offsets 

♦ ENTRY CREATE_CONTIG t ' MO 5 

FAB.PTR = 4 


RAB _ PTR 

= 8 



M0UL 

INSU 

FAB_PTR(AP) # R0 
#0» #FAB$U_CBT * *1 * 
FAB$L_F0P(R0) 

5 R 0 = address of FAB 

? c 1 e a r contiguous best try bit 

INSU 

#1 t 

#FAB$U_CTG t * It 

FAB$L__F0P(R0) 5 set FAB$U_CTG bit 

; fop 

$CREATE 

FAB 

= F AB _ PTR(AP) 

? create file 

BLBC 

R0 * 

10$ 

5 branch if error 

$C0NNECT 

RET 

♦ END 

RAB 

= RAB.PTR(AP) 

? connect stream to file 
? Return with R 0 set to success 
? or failure 


A USEROPEN routine must return a status value. The Run-Time Library attempts to process any error 
condition returned to it by the USEROPEN routine. 

The Run-Time Library sets up the following VAX-11 RMS control structures before calling the 


USEROPEN 

procedure: 

FAB 

File Access Block 

RAB 

Record Access Block 

NAM 

Name Block 

XAB 

FHC Extended Attributes Block 


Any key XABs specified for index files 


A USEROPEN procedure should not alter the allocation of these structures, although it can modify the 
contents of many of the fields. Your procedure can also add additional XAB control blocks by linking 
them to the XAB chain. If you link another XAB to the XAB chain in a BASIC USEROPEN, be sure to 
unlink it. If you do not, the BASIC OPEN routine assumes control and attempts to unlink the addi¬ 
tional XAB. 


Note 

Exercise caution when changing fields that have been set as a result of BASIC or 
FORTRAN keywords; the internal Run-Time Library data base will not reflect the 
changes. 

Always use the BASIC or FORTRAN OPEN keyword if one is available. For example, do not attempt 
to change the record size in your USEROPEN routine. Instead, use the BASIC or FORTRAN keyword 
RECORDSIZE. 
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Only the RAB structure remains allocated after the OPEN. Therefore, do not store the addresses of the 
FAB, XAB, or NAM blocks for later use. 


Note 

In future releases of the VAX-11 Run-Time Library, DIGITAL may alter the use of 
some RMS fields. Such action could result in an implementation of the USEROPEN 
keyword that is not compatible with this release. 

VAX—11 RMS does not allow multiple copies of the same type of XAB. To be compati¬ 
ble with future releases of the Run-Time Library, your procedure should scan the XAB 
chain for XABs of the type to be inserted. If one is found, it should be used instead. 
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Chapter 3 
Error Handling 


Your program may encounter errors or exception conditions during execution. The conditions can 
result from errors associated with I/O operations, calls to subroutines, arithmetic operations, or 
system functions. The Run-Time Library provides default processing for error conditions, issues error 
messages, and recovers from errors whenever possible. 

This chapter describes how the high-level languages process errors in conjunction with the Run-Time 
Library. In particular, it discusses the methods each language uses to handle signaling, resignaling, 
and unwinding. The error handling semantics of each language are implemented using the mecha¬ 
nisms specified by the VAX-11 Procedure Calling and Condition Handling Standard (Appendix C, 
VAX—11 Run-Time Library Reference Manual). Since these mechanisms are modular and based on a 
procedure activation stack frame, the error handling works according to the rules of each language, 
even in a multilanguage program. 

3.1 Error Handling by the Language Support Libraries 

A condition handler responds to an exception in one of three ways: 

• Corrects the condition 

• Reports the condition 

• Affects the control of execution 

First, the handler determines whether it can correct the condition. If it can, it does so and execution 
continues. If it cannot correct the condition, the handler resignals the condition. That is, it requests 
that another condition handler process the exception. 


Condition reporting performed by handlers involves one of the following actions: 

• Maintaining a count of exceptions encountered during program execution. 

• Resignaling the same condition and sending a message to your terminal or to a log file. 


GEN 53 





• Changing the severity field of the condition value and resignaling the condition. 

• Signaling a different condition to produce a message oriented to a specific application. For exam¬ 
ple, if a BASIC program tried to calculate the square root of a negative number, the Math Library 
would generate the signal MTH$_SQUROONEG, the BASIC error handler would convert this to 
the appropriate BASIC signal BAS$_IMASQUROO. 

A handler can affect the control of execution by performing one of the following actions: 

• Continuing processing from the point of execution. However, if the signal was issued through a call 
to LIB$STOP, continuation is not permitted. 

• Unwinding to the establisher at the point of the call that resulted in the exception. The handler 
specifies the function value to be returned by the called procedure. 

• Unwinding to the established caller (that is, to the procedure that called the procedure in which 
the handler was established). The handler specifies the function value to be returned by the 
establisher. 

Most high-level languages automatically establish their own error handler in each procedure activa¬ 
tion stack frame. This handler identifies the language of the procedure and handles errors according 
to the semantics of the language. 

Unless the language user's guide says otherwise, you should not establish your own handler in the 
stack frame by calling LIB$ESTABLISH or by any other means. You should use the condition handling 
capabilities supplied by the language. Since FORTRAN does not automatically establish a handler, 
use LIB$ESTABLISH to set up a handler in a FORTRAN stack frame. 

3.1.1 VAX—11 BASIC 

In each BASIC procedure, you can process errors by specifying a BASIC handler using the 
ON ERROR GOTO statement, or you can let the system handle errors. In either case, the system 
automatically establishes BAS$HANDLER for each BASIC call frame. 

In system error handling, the system prints a message describing the nature of the error, and usually 
returns to command level without completing execution of the instruction that caused the error. 

In user-defined error handling, your BASIC handler: 

• May call one or more routines you supply 

• Processes the error 

• Continues execution at the beginning of the statement in which the error occurred (RESUME 
statement) 

• Continues execution at a specified line number (RESUME [lin-num] statement) 

• Resignals the error (ON ERROR GO BACK) 

You cannot write VAX—11 BASIC programs to trap all errors. Some run-time errors, together with 
non—BASIC errors, are always handled by the system. In addition, a user-written error handler cannot 
process more than one error at a time. If your program signals another error, either control returns to 
system error handling or execution ends. You can use the VAX—11 condition handling facility to 
process those errors that BASIC does not handle by resignaling. 
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3.1.2 VAX-11 COBOL 


The Run-Time Library provides three COBOL—specific procedures for error handling. COB$ERROR 
signals errors detected at run time. COB$IOEXCEPTION handles I/O exceptions and updates file 
status variables. COB$HANDLER is the handler automatically established for each COBOL procedure 
activation. It performs three functions: 

1. Works with COB$IOEXCEPTION to perform a USE procedure 

2. Resignals SS$_ROPRAND as COB$_INVDECDAT if the error occurs during execution of a 
CVTTP or CVTSP instruction (Convert Trailing Numeric to Packed Decimal or Convert Leading 
Separate to Packed Decimal) 

3. Resignals all other errors 

You can handle errors in your COBOL procedure with USE procedures. 

3.1.3 VAX-11 FORTRAN 

In FORTRAN, you can explicitly supplement or override default actions by using: 

• The error (ERR) and end-of-file (END) specifiers in I/O statements to transfer control to error¬ 
handling code within the program 

• The input/output status specifier (IOSTAT) in I/O statements to identify language-specific errors 

• The compiler qualifier /CHECK = UNDERFLOW which produces code to count and report occur¬ 
rences of floating underflow, and allow the program to continue with a value of zero 

• The VAX-11 condition handling facility or user-written condition handlers established by calling 
LIB$ESTABLISH to tailor error processing to the special requirements of your applications 

These error-processing methods are complementary; you can use them together in the same program. 
However, before writing a condition handler, you should be familiar with the VAX—11 condition 
handling facility and with the condition handling description in the VAX-/ 7 Run-Time Library User's 
Guide. 

3.1.4 VAX-11 PL/I 

PL/I provides error handling and signaling through the use of the ON, REVERT, and SIGNAL state¬ 
ments and several built-in functions. You can direct these statements and the functions they perform 
to encompass VAX—specific and program- or application-specific error signaling and condition han¬ 
dling by specifying the VAXCONDITION keyword. 

PL/I defines a condition handler to handle a specific condition in the ON—unit. Any procedure can 
establish a separate ON—unit for each condition. An ON—unit can act in one of four ways as a result 
of a condition: 

• Handle the condition and return control to the point at which the condition was signaled 

• Resignal the condition and request PL/I to locate another ON-unit to handle it 

• Unwind the call stack by transferring control outside the current procedure activation 

• Stop the program 
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3.2 Signaling 

A procedure signals to indicate that an exception has occurred. For a program to issue a message and 
continue execution after handling the condition, it must call the standard procedure: 

CALL LIB$SIGNAL (condition-value, parameters ...) 

When a program wants to issue a message and stop unconditionally, it calls the procedure: 

CALL LIB$STOP (condition-value, parameters ...) 

In both cases, condition-value indicates the signaled condition. However, LIB$STOP forces the sever¬ 
ity of condition-value to SEVERE. The parameter list describes the exception condition. These are the 
same parameters used to issue a system message. (See Chapter 6 of the VAX-11 Run-Time Library 
User's Guide for more information about using LIB$STOP and LIB$SIGNAL.) 

Hardware exceptions behave like a call to LIB$SIGNAL. The stack scan and the parameters passed to 
each condition handler are the same. Therefore, you can write a single condition handler to detect 
both hardware and software exceptions. 

The language support procedures indicate the occurrence of an exception condition by calling 
LIB$SIGNAL or LIB$STOP. Your procedure or handler can also call LIB$SIGNAL or LIB$STOP to 
indicate the occurrence of conditions that your program considers exceptional. 

3.2.1 VAX-11 BASIC 

In general, the BASIC warning errors are signaled as WARNING, and fatal errors signaled as ERROR. 
All other errors are signaled as INFORMATION. Since program execution cannot be restarted follow¬ 
ing fatal errors, they are signaled by calling LIB$STOP; the rest are signaled by calling LIB$SIGNAL. 

3.2.2 VAX-11 COBOL 

All COBOL run-time errors are signaled by calling LIB$STOP. Thus execution cannot be continued 
except by unwinding. 

3.2.3 VAX-11 FORTRAN 

The Run-Time Library contains condition handlers that process a number of FORTRAN run-time 
errors. How the Run-Time Library processes errors depends upon several factors: 

• Error severity 

• Specific recovery method 

• Continuation status 

When VAX—11 FORTRAN detects an error condition, it generates a severity code. All 
FORTRAN-specific errors have severity codes of either ERROR or SEVERE (fatal). The default action 
for all fatal errors is to stop execution and exit. However, some fatal errors allow you to write a 
condition handler or an I/O error-handling specifier to allow program execution to continue. Other 
fatal errors cause execution to stop, whether or not you have written a handler for the error. For more 
information, see the VAX—11 FORTRAN User's Guide. 
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3.2.4 VAX-11 PL/I 


In PL/I, errors are signaled through ON conditions and handled by groups of statements called 
ON-units. An ON condition is any one of several named conditions whose occurrences interrupt the 
normal execution of a program. The ON—unit can complete execution in any of the following ways: 

• Execute a nonlocal GOTO statement 

• Execute a PL/I STOP statement 

• Call the RESIGNAL built-in subroutine 

• Execute a PL/I SIGNAL statement 

3.3 Resignaling 

A condition handler resignals to indicate that the signal procedure should continue searching for a 
condition handler to process the error. To resignal, a condition handler returns the value 
SS$_RESIGNAL. 

All condition handlers should check for specific errors. If the signaled condition is not one of the 
expected errors, a handler should resignal. Before resignaling, a handler may change the severity of 
the error to get the desired default action. 

3.3.1 VAX-11 BASIC 

To resignal in BASIC, a user-defined condition handler executes the statement 
ON ERROR GO BACK. This statement returns control to the calling program in one of two ways: 

• If an error in your program has been signaled, executing an ON ERROR GO BACK statement 
returns control to the calling program immediately. 

• If an error in your program has not been signaled, executing an ON ERROR GO BACK statement 
sets an internal flag so the next occurrence of an error will return control to the calling program. 

3.3.2 VAX-11 COBOL 

The COBOL default condition handler COB$HANDLER checks whether the current signal is the 
result of a reserved operand fault or a special signal that returns control from USE procedures invoked 
by an I/O exception. If the signal was not caused by either condition, COB$HANDLER exits with a 
status of SS$_RESIGNAL, so the condition is resignaled. 

3.3.3 VAX-11 FORTRAN 

A FORTRAN condition handler controls subsequent program execution by returning a function value. 
To resignal, set the function return value equal to SS$_RESIGNAL. 

3.3.4 VAX-11 PL /I 

A PL/I ON—unit can use the RESIGNAL built-in subroutine to request that PL/I continue to search for 
an ON—unit to handle the condition. It does so by calling the RESIGNAL built-in subroutine: 

CALL RESIGNAL()5 
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When an ON-unit calls RESIGNAL, the system resumes its search of the call stack from the call frame 
where it located the current ON—unit. It then continues the search in the normal sequence. 

3.4 Unwinding 

Stack unwinding removes one or more frames from the stack, starting with the frame where the 
condition occurred. It can be used whether the condition was detected by hardware or signaled by 
LIB$SIGNAL or LIB$STOP. After a handler has called LIB$STOP, you can continue execution only by 
unwinding. 

If a handler wants to unwind, it or any procedure it calls executes the SYS$UNWIND system service. 
SYSSUNWIND ignores any function value from the handler. Therefore, a handler cannot both resig¬ 
nal and unwind. It can issue a message and unwind only by calling LIB$SIGNAL and SYS$UNWIND. 

3.4.1 VAX-11 BASIC 

In BASIC, SYSSUNWIND is called as part of the sequence initiated by the RESUME statement. 

3.4.2 VAX-11 COBOL 

The default COBOL condition handler determines whether the current signal returns control from 
USE procedures invoked by an I/O exception. If so, the handler calls SYSSUNWIND. 

3.4.3 VAX-11 FORTRAN 

In FORTRAN, your handler calls SYSSUNWIND explicitly to perform unwinding. Depending on the 
argument(s) passed to SYSSUNWIND, the unwinding operation completes as follows: 

• SYS$UNWIND(,) — unwind to the establisher's caller 

• SYS$UNWIND(DEPTH,) — unwind to the establisher at the point of the call that resulted in the 
exception 

3.4.4 VAX-11 PL/I 

An ON-unit in a PL/I procedure can execute a nonlocal GOTO statement that transfers control to a 
previous block. In this case PL/I unwinds by releasing call frames, beginning with the call frame 
created for the ON-unit, until it reaches the block containing the label specified in the GOTO 
statement. 
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This division describes the VAX-11 BASIC-specific support proce¬ 
dures. It also contains information about calling and writing user pro¬ 
grams that access these procedures. The material in this division is not 
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Chapter 1 

Using VAX-11 BASIC Support Procedures 


This division describes the BASIC-specific support procedures. It has five chapters and one appendix. 
Chapter 1 describes how to use the BASIC—specific procedures, 
describes the file I/O processing procedures. 

describes the auxiliary I/O procedures including OPEN and CLOSE. 


Chapter 2 
Chapter 3 
Chapter 4 


describes the procedures available for format conversion, string manipulation, and 
exponentiation. 

Chapter 5 describes miscellaneous compiled-code support procedures. 

Appendix A describes the procedures that provide compatibility with RSTS/E and 
PDP-11 BASIC-PLUS. 


The functional descriptions of the BASIC procedures are cursory. Refer to the VAX—11 BASIC 
Language Reference Manual and the VAX-11 BASIC User's Guide for more details. 


1.1 Data Types Supported 

BASIC supports the following data types: 

• Longword (signed) — Default for variables with % (LONG) 

• Word (signed) — Replaces longword when requested (WORD) 

• F_floating — Default for variables with neither % nor $ (SINGLE) 

• D_floating— Replaces F_floating when requested (DOUBLE) 

• Scaled D_floating— Replaces D_floating when requested 

• Character String - Default for variables with $ (STRING) 
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1.2 Program Units 

In this manual, VAX-11 BASIC program units are called procedures. Table BAS-1 summarizes the 
types of program units supported by the Run-Time Library. 


Table BAS—1: Supported Program Units 


Program Unit 

Begin Statement 

End Statement 

User-Declared 
Local Storage 

Major Procedures 

Main Program 

The first 

statement 

END or last 

statement 

Yes 

Subprogram 

SUB 

SUBEND 

Yes 

External 

Function 

FUNCTION 

FUNCTIONEND 

Yes 

Minor Procedures 

DEF 

Function 

DEF 

FNEND 

Only its own 
variables 

Subroutine 

Called by GOSUB 
or on GOSUB 

RETURN 

No 

Condition 

FHandler 

Established by 

ON ERROR GOTO 

RESUME 

No 

Immediate 

On-Line 

Single statement routir 
is executed immediate 

le that 
ly on entry 

No 


1.3 Memory Classes 

Memory is divided into three storage classes: static, stack, and heap. 


1.3.1 Static Storage 

Static storage is allocated when the program image is loaded and remains in effect for the duration of 
the program execution. It includes generated executable code, constants, COMMON/MAP PSECTs, 
as well as COMMON/MAP string and array descriptors. 

1.3.2 Stack Storage 

Stack storage is allocated at procedure activation and freed at procedure termination. This storage 
class includes numeric variables, dynamic string descriptors, dynamic array descriptors, temporaries, 
and frame information. 
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1.3.3 Heap Storage 

BASIC allocates and deallocates heap storage at run time as needed. Heap storage includes dynamic 
string data and I/O buffers. 


1.4 Memory Layout 

All memory used directly by BASIC compiled code is either allocated on the stack or in the various 
PSECTs. An exception is made for dynamic strings, which are sometimes accessed by the compiled 
code. 

1.4.1 Stack 

All automatic storage resides on the stack. Figure BAS-1 shows the procedure stack frame when all 
items are present. 

The frame control data (FCD) contains the DATA pointers, the module name pointer, and other 
procedure-specific information. 

BSF$A_USER_HAND contains the condition handler parameters and has a unique scope in the 
BASIC language. The compiled code references it directly using a fixed offset from RIO or R11. 

The numeric scalars are the local scalar variables used by the procedure. VMS initializes them to zero 
upon procedure activation. 

Rn is the base register for local variables. It is R11 in the main program, subprogram, and external 
function frames. In DEFs, Rn is RIO. It is offset 123 bytes from the end of BSF$A_USER_HAND, 
allowing byte displacements to be used. 

Procedure activation initializes the formal parameter pointers. They point to parameters accessed by 
reference or by descriptor. The procedure initialization routines copy them from the argument list. 

The procedure initialization routine sets up the array descriptors, which are copied from the frame 
descriptor prototype table. The DSC$A_POINTER and DSC$A_AO are relocated using the frame 
descriptor modification table. 

The procedure initialization routine also sets up the dynamic string descriptors and templates for static 
string descriptors. DSC$W_LENGTH and DSC$A_POINTER are initialized to zero. 

The procedure initialization routine initializes elements of numeric arrays and numeric scalars to 
zero. 

The temporary area holds descriptors for temporary strings (initialized to empty) and space for tempo¬ 
rary scalars. R9 points to this area, since it will be reallocated on an interrupt. The temporary area is 
optional. 
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Figure BAS—1: Procedure Stack Frame 
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1.4.2 Program Sections (PSECTs) 

Static storage is allocated in several program sections (PSECTs). These PSECTs all have attributes PIC, 
USR, CON, REL, LCL, SHR, NOEXE, RD, NOWRT and are aligned LONG except as otherwise noted: 

• $CODE — Contains executable instructions. This PSECT has the EXE rather than the NOEXE 
attribute. 

• $PDATA — Contains most of the read-only, nonexecutable data for the procedure, including: 

- DATA statement text 

- String constants (numeric constants are stored as numeric literals in-line with generated code) 
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- Frame descriptor modification table 

- Names of the major procedures and each function 

- PC table that relates offsets in the code to BASIC line numbers 

- Argument lists for the procedure initialization routines 

• $ARRAY — Contains array descriptors for arrays in COMMON/MAP. It also has attribute WRT 
rather than NOWRT, since the arrays can be redimensioned. Because its addresses point to the 
COMMON/MAP PSECTs, it has the NOPIC rather than the PIC attribute. The fields of the descrip¬ 
tors are filled in at link time. 

• COMMON/MAP PSECTs - Contain data for COMMON/MAP. The user program supplies the 
PSECT name. These PSECTs have attributes PIC, USR, OVR, REL, GBL, SHR, NOEXE, RD, and 
WRT for compatibility with FORTRAN named common. These PSECTs contain only data, no 
descriptors or other overhead information. 

The preceding PSECT names and attributes are the defaults. You can change them using compiler or 
linker qualifiers. 


1.5 Registers 

The following registers have defined uses within a BASIC procedure: 

• PC - Program counter. 

• SP - Stack pointer. 

• FP - Current stack frame pointer. Always points at the current frame. 

• AP - Argument pointer. When a CALLS instruction occurs, AP points to an argument list. In a 
procedure without parameters, AP points to an argument list consisting of a single longword con¬ 
taining the value zero. After initialization, AP can be used as a temporary. 

• R11 - Base register for local variables in the current main program, subprogram, or external 
function. 

• RIO — Secondary base register for local variables in DEFs. 

• R9 - Base register for access to temporary cells. Needed because an interrupt may occur when 
temporary storage is in use. 

• R8 to R2 - Available for temporary use by compiled code. These registers are preserved across 
procedure calls. However, the ON ERROR structure may destroy them at a line number. 

• R1 and RO - Function value return registers. They are available to any called procedure as tempo¬ 
rary registers, but are not preserved. 


Note 

Local register assignments may not cross line numbers. 


Using BASIC Support Procedures BAS 5 


1.6 Procedure Frame 

The general procedure calling mechanism is as follows: 

1. The arguments (if any) are pushed on the stack. 

2. A CALLS instruction invokes the procedure and pushes the number of arguments on the stack. 
CALLS then aligns the SP on a longword boundary and saves the desired registers, register mask, 
and PSW. The appropriate values are then placed in AP, FP, and SP. 

3. The first few instructions of the procedure call the frame initialization routine, which sets up the 
frame control data and automatic storage. 

This method of setting up the frame separates the compiled code from the details of the frame 
structure. The compiled code only writes into one location of the frame control data: BSF$A_MARK. 

The frame control data contains 68 bytes for major procedures, 44 bytes for DEF procedures, and 32 
bytes for GOSUB, condition handling, and immediate mode frames. These lengths have the following 
symbolic names in the Run-Time Library: 

• BSF$K_LENFCDMAJ — Major procedures 

• BSF$K_LENFCDDEF - DEF functions 

• BSF$K_LENFCDGSB - GOSUBs 

• BSF$K_LENFCDONE - Condition handlers 

• BSF$K_LENFCDIOL - Immediate on-line 

In the following layout of a procedure frame, the numbers in the left margin are decimal offsets 
from FP. 

These elements occur only in major procedure frames: 

-64: BSF$A_BASE_PC — Address of the first byte of code in the major procedure. 

-60: BSF$A_CUR_DATA — Indicates the next byte of a DATA statement to be READ. The 

RESTORE statement can reset the pointer to the first byte of the DATA sequence. 

-56: BSF$A_END_DATA — Indicates the byte following the end of the DATA statement text in 

PSECT $PDATA. The READ statement uses this element to detect an attempt to read beyond 
the end of the DATA sequence. 

—52: BSF$B_SCA_V_PAC — Scale value for packed decimal (between zero and minus six). For 

example, the integer 1234, with a scale factor of minus two, would be printed as 12.34. The 
BASIC programmer should specify the scale factor as a number from zero to six. The 
negative of that value is stored in the frame to make it consistent with the scale factor in 
VAX—11 descriptors. 

-51: BSF$B_SCA_V_DOU — Scale factor for D_floating (between zero and minus six). 

—50: 16 reserved bits. 

—48: BSF$D_SCALE_DOU — Scale value for D_floa1;ing, stored as a D_floating number (1, 10, 

100, ..., 1000000 corresponding to 0, -1, -2, -6 in BSF$B_SCA_V_DOU). 
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The following elements are also in DEF frames: 

—40: BSF$A_INIT_ARG — Pointer to the initialization argument that set up this frame. Used 

when the frame is removed from the stack to find the number of string descriptors and 
during RESTORE to locate the first byte of the DATA statement text. 

-36: BSF$I_INIT_REL — The relocation constant that initializes this frame. Interprets the 

"addresses" in the initialization argument. 

-32: BSF$A_STR_DESC — Pointer to the dynamic string descriptors put in this frame by the 

frame initializer. Used to deallocate those strings when the procedure returns control to the 
calling program. 

These elements are in GOSUB, condition handling, and immediate mode frames. 

-28: BSF$B_LEN_FCD — The number of bytes in the frame control data. Always 68 for major 

procedures, 44 for DEF procedures, and 32 for GOSUB, condition handling, and immediate 
mode frames. 

-27: BSF$B_PROC_CODE — The type of frame, encoded as follows: 

• BSF$K_PROC_MAIN - main program 

• BSF$K_PROC_SUB - subprogram 

• BSF$K_PROC_EXTF - external function 

• BSF$K_PROC_DEF - DEF function 

• BSF$K_PROC_GOSB - GOSUB frame 

• BSF$K_PROC_ONER - condition handling frame 

• BSF$K_PROC_IOL - Immediate On-Line frame 

This element checks the validity of RETURN and RESUME statements and can also aid in traceback. 

-26: BSF$W_FCD_FLAGS — Includes several frame flags: 

Bit 15: BSF$V_FCD_LONG — This procedure was compiled with 32—bit integers (as 
opposed to 16—bit integers). If this flag in a calling program does not match the 
corresponding flag in the called program, the Run-Time Library gives an error 
message. 

Bit 14: BSF$V_FCD_DOU — This procedure was compiled with double-precision float¬ 
ing-point (as opposed to single-precision). If this flag in a calling program does not 
match the corresponding flag in the called program, the Run-Time Library gives an 
error message. 

Bit 13: BSF$V_FCD_RSTR — This procedure returns a string result. When the function is 
called, the result (the first parameter) will be nulled before execution. 

Bit 12: BSF$V_FCD_OEGO — The first statement in this procedure is either an 
ON ERROR GOTO n or ON ERROR GOBACK statement (not an 
ON ERROR GOTO 0 statement). Therefore, an error encountered before the first 
statement completes execution is processed under an implied 
ON ERROR GOBACK rather than ON ERROR GOTO 0. This avoids a "win¬ 
dow" in processing CTRL/C traps. 
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Bit 11: BSF$V_FCD_IV — This procedure has integer overflow enabled. It ensures that 
the IV bit in the PSW can be set correctly when establishing a GOSUB, condition 
handler, or immediate mode frame. 

Bits 10 to 0: Must be zero. 

—24: BSF$A_PROC_ID — Contains one of the following depending on the type of procedure: 

• For major procedures, it includes a pointer to the following: 

0: BAS$T_PROC_NAME — A counted string up to 31 characters long used by the 

ERN$ function and for traceback. This string is also the name of the module. 

2—32: BAS$Z_PC_TABLE — A list of incremental PC and line number combinations. 

The first longword indicates the number of the items in the rest of the list. Each 
item consists of two unsigned words. The low-order word holds the line number. 
The high-order word contains the difference between the PC of the beginning of 
the major procedure and the PC of the MOVAB that starts the line. Sometimes 
the compiler inserts mark points between line numbers, but these do not appear 
in the table. 

• For DEF procedures, it contains a pointer to the function name descriptor and is used for 
traceback. 

• For GOSUBs, condition handlers, and immediate frames, it contains the PC of the entry 
point of the routine. Except in immediate frames, it is used for traceback. 

-20: BSF$A_BASE_R9 — Frame initialization stores the base value of R9 in this element. For 

immediate mode code, BASIC loads R9 with this value. 

-16: BSF$A_BASE_R10 — Frame initialization stores the base value of RIO in this element. For 

major procedures, which do not use RIO, the value is zero. For ON ERROR GOTO and 
immediate mode code, BASIC loads RIO with this value. 

-12: BSF$A_BASE_R11 — Frame initialization stores the base value of R11 in this element. For 

ON ERROR GOTO and immediate mode code, BASIC loads R11 with this value. 

-8: BSF$A_BASE_SP — Frame initialization stores the base value of SP in this element. When 

an interrupt occurs, BASIC loads SP from here to restart the statement. 

-4: BSF$A_MARK — At each mark point in the BASIC program, the compiled code stores the 

program counter in this element using: 

MOVAB -3(PC) >BSF$A_MARK(FP) 

On RESUME, this restarts the statement that was executing when an interrupt occurred, and 
computes the line number that was being executed. This is the only location in the frame 
control data that is referenced directly by compiled code. 

0: BSF$A_HANDLER — This element points to the routine that receives control after an error 

or UNWIND. Frame initialization sets this pointer after the preceding elements are set. The 
Run-Time Library tests this value to determine if this is a BASIC frame. 
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1.7 Calling the VAX-11 BASIC-Specific Procedures 

Section 1.6 describes the BASIC procedure frame and general procedure calling mechanism. To 
review, you initiate three steps to invoke a procedure: 

1. Push the arguments (if any) on the stack. 

2. Invoke the procedure with a CALLS instruction. 

3. Set up the frame control data on the stack and allocate automatic storage. 

This section describes the calling mechanisms for each procedure type. Virtual arrays and internal 
functions cannot be passed as parameters. 


1.7.1 Main Programs and Subprograms 

Main orograms and subprograms are called in the same way, except that main programs have no 

arguments. A call to a main program or subprogram results in the following steps: 

1. The actual parameters (if any) are pushed on the stack from right to left so the left-most (first) 
actual parameter in the parameter list corresponds to arglist + 4, the next to arglist-\- 8, and so on. 
The BASIC parameter passing mechanisms for subprograms and external functions are call by 
reference for numeric scalars and call by descriptor for arrays and string scalars. 

2. A CALLS instruction invokes the procedure. 

3. The called program invokes the procedure initialization routine BAS$INIT_R8 by a JSB, to set up 
the frame control data and local storage. 

The END and SUBEND statements initiate the return mechanisms for main programs and subpro¬ 
grams. These statements compile into the following sequences: 

1. A MOVAB instruction to load RO with the same value that was given to BAS$INIT_R8. 

2. A JSB to BAS$END_R8 to unwind the stack and free the dynamic storage (if any). If this is the end 
of the main program, the exit handler closes all logical units. 

3. A MOVL instruction to load RO with a suitable final status (SS$_NORMAL). 

4. A RET instruction. 


1.7.2 External Functions 

The calling mechanism for external functions operates as follows: 

1. The actual parameters (if any) are pushed on the stack from right to left. If the function has a string 
value, the address of a local dynamic string descriptor (for the returned value) is pushed on the 
stack. The argument passing conventions are call by reference for numeric scalars and call by 
descriptor for arrays and string scalars. 

2. A CALLS instruction invokes the function. 
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3. The compiled code invokes the procedure initialization routine BAS$INIT_R8 by a JSB to set up 
the frame control data and the local storage. BAS$INIT_R8 allocates automatic storage on the 
stack. If the function returns a string value, BAS$INIT__R8 also returns the storage pointed to by 
the descriptor to heap storage and then sets the length field of the descriptor to zero. The BASIC 
language requires the result to be a null string if the user does not assign a value. 

The FUNCTIONEND statement initiates the return mechanism for external functions. It compiles into 

the following sequence: 

1. A MOVAB instruction to load RO with the same value that was given to BAS$INIT_R8 

2. A JSB to BAS$END_R8 to unwind the stack and free the dynamic storage associated with this 
frame 

3. For functions returning numeric values, a move of the function value into RO, or into RO and R1 

4. A RET instruction 

1.7.3 DEF Functions 

The following steps are performed in calling DEF functions: 

1. The actual parameters (if any) are evaluated and pushed on the stack from left to right (except for 
the descriptor of a string result, which is pushed last). The argument passing mechanisms are call 
by value for numeric scalars and call by descriptor for string scalars. Note that BASIC does not 
permit arrays to be passed to DEF functions. 

2. A CALLS instruction invokes the function. 

3. The initialization routine BAS$INIT_DEF_R8 is invoked by a JSB to set up the frame control data 
and the local storage. This includes copying the formal parameters into automatic storage and 
setting the length field of the result string descriptor to zero. 

The FNEND statement initiates the return mechanism for DEF functions. It compiles into the following 

sequence: 

1. A MOVAB instruction to load RO with the same value given to BAS$INIT_DEF_R8 

2. A JSB to BAS$END_DEF_R8 to free the dynamic storage associated with this frame 

3. For functions returning numeric values, a move of the function value into RO, or RO and R1 

4. A RET instruction 

1.7.4 Subroutines 

The GOSUB statement performs the following steps: 

1. Pushes the (longword) address of the subroutine onto the stack 

2. Calls the initialization routine BAS$INIT_GOSUB using a CALLS instruction with one argument 
(the address of the subroutine) 
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BAS$INIT_GOSUB sets up the procedure frame and jumps to the subroutine as follows: 

1. Space is allocated for the frame control data by subtracting BSF$K_LENFCDGSB bytes from SP. 

2. BSF$A_MARK is cleared. 

3. BSF$A_BASE_SP in the frame control data is filled in with the base SP value. 

4. BSF$A_BASE_R11, BSF$A_BASE_R10, and BSF$A_BASE_R9 are set to the values of registers 
R11, RIO, and R9. 

5. BSF$A_PROC_ID is set to the address of the first line of the GOSUB (the argument of 
BAS$INIT_GOSUB). 

6. BSF$W_FCD_FLAGS is copied from the previous frame (which must be a BASIC frame). 

7. BSF$B_LEN_FCD is set to the length of the frame control data. 

8. BSF$B_PROC_CODE is set to BSF$K_PROC_GOSUB. 

9. The IV bit in the PSW is set to BSF$V_FCD_IV. 

10. BSF$A_HANDLER is set to BAS$HANDLER. 

11. BAS$INIT_GOSUB then jumps to the subroutine. 

BAS$INIT_C_GSB, the initialization routine for the ON control GOSUB statement, is invoked using 
a CALLS instruction as follows: 



PUSHL 

contr o1 


JSB 

10$ 

TABLE: 

♦ LONG 

table-length 


♦ WORD 

fi rst-offset 


♦ UORD 

♦ 

second-offset 

10$: 

♦ 

♦ 

CALLS 

#2# BAS$INIT_C 


BAS$INIT_C_GSB determines the address of the subroutine from the address table. It initializes the 
frame exactly like BAS$INIT_GOSUB and jumps to the subroutine. 

The table starts with a longword that contains the number of entries. Each entry consists of a word 
containing the offset from the start of the table to the line that begins the subroutine. If the control 
value is out of range, BAS$INIT_C_GSB indicates an error. 

The RETURN statement initiates the return from a subroutine. It compiles into: 

1. A JSB to BAS$END_GSB_R8, which checks whether BSF$B_PROC_CODE in the current frame 
contains the correct code (BSF$K_PROC_GOSB). If it does not, a fatal error condition is 
signaled. 

2. The RET instruction, which returns to the caller of BAS$INIT_GOSUB. 
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1.7.5 Condition Handlers 

When an interrupt condition occurs, BAS$HANDLER calls BAS$INIT_ONERR to set up a new frame 
and then branches to the user handler. The BAS$RESUME, BAS$RESUME_Z, BAS$ON_ERR_Z, or 
BAS$ON_ERR_BAK routines cause a return. See Section 1.10 of this division for further information. 

1.7.6 Immediate On-Line Statement 

When the user inputs a BASIC statement to the keyboard monitor, BASIC compiles and executes the 
statement immediately. If the user has no program in memory (calculator mode), the statement is 
compiled and executed as a main program. If there is a program that has run (for example, if you are 
in a STOP statement) then the statement is executed in the environment of the program. To do this, 
the Immediate On-Line program unit permits code to be executed in the environment of another 
program unit. A call to BAS$INIT_IOL starts the routine and a RET ends it. 

1.8 Writing VAX-11 BASIC Subprograms 

BASIC subprograms begin with either a SUB statement or a FUNCTION statement. 

You can pass approximately 32 parameters to a subprogram, depending on the complexity of expres¬ 
sions in the parameter list. The default parameter passing mechanisms for BASIC subprograms are: 

• BY REF for all parameters except strings and entire arrays 

• BY DESC for strings and entire arrays 

The parameters in the SUB statement are dummy parameters that must agree in number and data type 
with the actual parameters in the calling statement. 

The SUB statement must be paired with a SUBEND statement. SUBEND transfers control to the 
statement immediately after the statement that called the subprogram. The SUBEND statement must 
be the last statement in the subprogram. 

You can also exit from a subprogram with the SUBEXIT statement. This statement corresponds to an 
unconditional transfer to the SUBEND statement. 

If compiled separately, main programs and subprograms can use the same variable names, line 
numbers, and so forth. Elowever, they can share data only if it is: 

• Part of a MAP or COMMON block 

• In a file 

• Passed as a parameter in the calling statement 

You can pass string, integer, or floating-point data to a BASIC subprogram in the form of: 

• Constants 

• Variables 

• Expressions 

• Functions 

• Array elements 

• Arrays (but not virtual arrays) 
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When passing constants, variables, functions, and array elements, you name them in the argument 
list. For example: 

100 CALL SUB01 ( P0.NUM7 > VOUCH * 66 * G7 t CUST♦LI ST(5) * F N A < B 7.) ) 

However, when passing an entire array, you must use one of these formats: 

• One-dimensional arrays — array-name( ) 

• Two-dimensional arrays — array-name(,) 


For example: 
Main Program: 


10 DIM MET .MEASURE(3 »3 ) 

SUBSCRIPT1=3 

SUBSCRIPT2=3 

PRINT "THIS PROGRAM CONVERTS LITERS TO GALLONS" 
PRINT "TYPE UP TO NINE VALUES TO BE CONVERTED" 

MAT INPUT MET♦MEASURE 

CALL CONVERT ( MET ♦MEASURE( t) >SUBSCRIPT1^SUBSCRIPTS) 
MAT PRINT MET.MEASURE5 
80 END 


Subprogram: 


10 SUB CONVERT(METRIC< *) »S1 tS2) 

FOR I = 1 TO SI 

FOR J = 1 TO S2 

METRIC(I fJ) =METRIC(I#J>*0.2642 
NEXT J 
NEXT I 
70 SUBEND 


Subprogram DATA statements are local to that subprogram. The data pointer in the main program is 
not affected by READ or RESTORE statements in the subprogram. Each time you call a subprogram, 
BASIC positions the data pointer at the beginning of the subprogram's data. A function defined in a 
subprogram is also local to the subprogram. 

The FUNCTION statement lets you declare the data type of all the parameters and the returned value. 
The data type specified immediately after the keyword FUNCTION is also the data type of the 
returned value. 

FUNCTION subprograms follow the same rules as SUB subprograms. The FUNCTION subprogram 
equivalent to SUBEND is FUNCTIONEND; the equivalent of SUBEXIT is FUNCTIONEXIT. For 
example: 

Main Program: 

10 EXTERNAL REAL FUNCTION FSUB 
N1 = 12 

N2 = 4.5 
N3 = -4.003 

RSULT = FSUB(N 1 » N2 » N3) 

PRINT RSULT 

50 END 
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Function Subprogram: 

10 FUNCTION REAL FSUB (REAL X, Y * Z) 

FSUB = (X - Y) ** Z 
30 FUNCTIONEND 

You can write main and subprograms as separate source files or as a single source file. If the main and 
subprograms are separate, you must name each of them in the LINK DCL command. If the main and 
subprograms exist in a single source file, you need only specify that file to link them. In either case, 
the linker generates a single executable image. 

When writing main and subprograms in a single source file: 

1. Each line number must be unique. 

2. The main program's END statement must have a lower line number than the subprogram's SUB 
or FUNCTION statement. 

3. Any subprogram unit must end (with a SUBEND or FUNCTIONEND) before the next subprogram 
unit starts. 


1.9 Calling VAX-11 BASIC Subprograms 

When a BASIC subprogram is called from another language, the SUB or FUNCTION statement has 
the following format: 


SUB ) 

FUNCTION J 


sub-nam (data-type param [,array-param [BY REF]] [,...]) 


This format lets you specify the BY REF parameter passing mechanism for array parameters received 
by the subprogram. You use the BY REF clause only if the calling program is in a language other than 
BASIC or if you specified BY REF when passing the array. 

You can pass only data types that BASIC and the calling program source language have in common. 
Thus, you cannot pass a complex number from a FORTRAN program to a BASIC program, because 
BASIC does not support complex numbers. For more information, consult the language user's guides. 


1.10 Error Signaling by VAX-11 BASIC Library Procedures 

VAX-11 BASIC library procedures signal errors, informational messages, and warnings. Errors cannot 
be restarted in-line and are signaled by calling LIB$STOP. LIB$SIGNAL is called to signal informa¬ 
tional and warning messages. After a call to LIB$SIGNAL or LIB$STOP, the following actions occur: 

1. The VAX—11 Condition Handling Facility (CHF) scans frames (starting at the top of the stack) 

looking for one with a SF$I_HANDLER that is not equal to zero. 

2. If the frame belongs to a BASIC procedure, it contains the address of BAS$HANDLER. CHF then 
calls BASSHANDLER. 

3. If the signal is one expected from the Math Library, such as MTH$_SQUROONEG, it is con¬ 
verted to the appropriate BASIC signal (in this case BAS$_IMASQUROO). 

4. The signal is resignaled if: 

• It is not a BASIC signal. 

• Its severity is not "warning" or "error." 
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5. Depending on BAS$I_ERRFLG and BAS$I_GOING—BACK, BAS$HANDLER performs one of 

these actions: 

• When BAS$I_ERRFLG and BAS$I_GOING_BACK are both zero, it sets BAS$I_ERRFLG and 

BAS$I_GOING_BACK to one. It then sets the default RESUME PC to the PC of the last mark 

point. Next, it computes BAS$I_ERL from the last mark point, sets BAS$T_ERN from the 

procedure name as derived from the frame control data, and sets BAS$I_ERR based on the 

error. 

• When BAS$I ERRFLG is zero and BAS$I GOING_BACK is nonzero, BAS$HANDLER sets 

BAS$I ERRFLG only. This condition happens as part of the processing of an 

ON ERROR GO BACK statement. 

• If BAS$I ERRFLG is already set, BAS$HANDLER converts the severity of the condition to 

SEVERE and resignals. This action will normally cause an error message to be printed along 
with a traceback. As a result, execution terminates. This condition happens when an error or an 
ON ERROR GOTO 0 occurs while a user condition handler is running. 

6. BAS$HANDLER then checks BSF$A_USER-HAND (in the frame located by the VAX—11 CHF 
with the nonzero BSF$A_HANDLER) and performs the following actions: 

• If BSF$A_USER_HAND is zero, or if this is an Immediate On-Line frame, BAS$HANDLER 
performs system error handling. 

• If BSF$A_USER_HAND is one, or if this frame is associated with a GOSUB or condition 

handler, BAS$HANDLER clears BAS$I_ERRFLG and returns to CHF with SS$_RESIGNAL. 

• If BSF$A_USER_HAND is greater than one, BAS$HANDLER uses the user-defined condition 
handler to restore registers for this frame. It then uses BAS$INIT_ONERR to restore RIO and 
R11. Next, it sets up another frame to run the user condition handler. This happens automati¬ 
cally when the user says ON ERROR GOTO n. 

7. When BAS$INIT_ONERR is called (BSF$A_USER-HAND is greater than one), it sets up the 
frame for the user condition handler. BAS$HANDLER then jumps to the condition handler whose 
address is in BSF$A_USER_HAND. When the user handler calls RESUME or 
ON ERROR GO BACK, program control returns to BAS$HANDLER with a code in RO indicating 
the action to take. 

• RO equals 0 (RESUME with no line number): 

- Clear BAS$I_ERRFLG, BAS$I_GOING_BACK, and BAS$A_CH_CUR_LN. 

- Unwind the stack to the frame of the procedure where the error occurred. 

— Restore SP from BSF$A_BASE—SP in that frame. 

- Jump to the address saved in BAS$A_CH_CUR_LN (before it was cleared in step 1). 

• RO equals 1 (ON ERROR GO BACK): 

- Clear BAS$I_ERRFLG. 

— Set BSF$A_USER_HAND to one so the user's handler will not be called again (as can 
happen with a GOSUB). 

- Return to the VAX CHF with SS$_RESIGNAL. 
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• RO equals 2 (ON ERROR GO TO 0): 


— Set BSF$A_USER_HAND to zero so the user's handler will not be recalled. 

— Follow the procedure outlined in step 6, which will normally cause an error message to be 
printed. 

• RO greater than 2 (RESUME with a line number): 

- Clear BAS$I_ERRFLG, BAS$I_GOING-BACK, and BAS$A_CH_CUR_LN. 

- Unwind the stack to the frame that established the user condition handler. 

— Restore SP from BSF$A_BASE_SP in that frame. The other registers are restored by the 
UNWIND process. 

— Jump to the address in RO. This address corresponds to the line number in the RESUME 
statement. 

System error handling usually converts the severity code to SEVERE and resignals. This causes an error 
message to be printed on the user's terminal. However, a few errors cause the I/O statement to be 
restarted. These are usually typing errors made at the terminal. 

When a subprogram passes an error back to a main program that contains a RESUME statement and a 
line number specification, the program resumes execution at the given line number in the main 
program, even if the error occurred in the subprogram. 

The VAX—11 CHF uses BAS$HANDLER to deallocate dynamic storage when unwinding, as when the 
program does a RESUME that exits a DEF. 

1.10.1 Initializing a User Condition Handler 

A CALLS instruction invokes BAS$INIT_ONERR from BAS$HANDLER. CALLS has one parameter: a 
pointer to the frame where the ON ERROR was declared. BAS$INIT_ONERR builds a short frame 
just like BAS$INIT_GOSUB, and then allocates temporary storage immediately above it by loading 
R9 with a pointer to that storage. The initialization argument to the entered frame determines the 
required temporary storage. BAS$INIT_ONERR then loads R11 and RIO to point to the local storage 
in this frame and jumps to the location indicated by BSF$A_USER_HAND. BSF$A_PROC_ID is the 
PC of the error handler, taken from BSF$A_USER_HAND. 

1.10.2 Returning from a Condition Handler 

You use the RESUME statement to return from a user condition handler. RESUME line number 
compiles to: 

PUSHAB 1ine-offset(PC) 

CALLS #1 ,BAS$RESUME 


while RESUME with no line number compiles to: 
CALLS #0 ,BAS$RESUME_Z 
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BAS$RESUME_Z verifies that the current program unit was the source of the error. If so, it performs 
an unwind, returning to BAS$HANDLER with a zero in RO. If not, the ILLEGAL RESUME message is 
issued. 

BAS$RESUME and ON ERROR GO BACK perform the following unwind, returning to 
BAS$EHANDLER with a nonzero value in RO. ON ERROR GO BACKreturnsaonewhileBAS$RESUME 
returns the RESUME PC. 

1. Abort the current I /O operation, if any. 

2. Go through the stack frames looking for the condition handler. If you encounter a major proce¬ 
dure, DEF, or non-BASIC frame before the condition handler, a fatal error results. 

3. Issue an UNWIND to return to BAS$HANDLER and restore its registers. 

1.10.3 Restarting an I/O Statement 

Certain I/O errors, usually caused by faulty typing, make the system restart the I/O statement. 
BAS$RESTART_IO, which stores critical information about the current I/O statement, ends the state¬ 
ment and then restarts it. 
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Chapter 2 

File Processing Support 


This chapter describes the Run-Time Library routines that support BASIC I/O operations, including: 

• Sequential record I/O 

• Random record I/O 

• Indexed record I/O 

• Terminal-format I/O 

• Virtual I/O 

• Internal input 

The Run-Time Library processes I/O with a collection of small modular procedures that follow 
the VAX-11 Modular Programming Standard (see the VAX-11 Guide to Creating Modular Library 
Procedures , Appendix A). However, since these procedures were designed primarily for use in com¬ 
piled code, scalar input parameters are usually passed by immediate value. 

2.1 Record I/O 

This section describes the Run-Time Library routines that support BASIC sequential, indexed, and 
relative files, which are processed using record I/O. 

BAS$GET 


2.1.1 Sequential I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 


BASSFIND locates the next sequential record on the logical unit. 
BAS$GET reads the next record on this logical unit into the input buffer. 
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BAS$PUT and BAS$PUT_COUNT write the record in the output buffer to the logical unit after the last 
record in the current OPEN file. For BAS$PUT_COUNT, the number of bytes written must be 
specified. 

BAS$RESTORE rewinds the file on the logical unit. 

BAS$SCRATCH truncates the file OPEN on the logical unit at the current record. 

BAS$UPDATE and BAS$UPDATE_COUN update the current record on the logical unit. They can be 
used only on disk files and should follow a successful BAS$FIND or BAS$GET operation. The update 
record must have the same length as the record it replaces. For BAS$UPDATE_COUN, the number of 
bytes in the update record must be specified. 


Format 

FIND #chnl-exp 

generates 

CALL BAS$FIND (unit.rlu.v) 

Format 

GET #chnl-exp 

generates 

CALL BAS$GET (unit.rlu.v) 

Format 

PUT #chnl-exp [,COUNT int-exp] 

generates 

CALL BAS$PUT (unit.rlu.v) 

CALL BAS$PUT_COUNT (unit.rlu.v,count.rlu.v) 

Format 

RESTORE #chnl-exp 

generates 

CALL BAS$RESTORE (unit.rlu.v) 

Format 

SCRATCH #chnl-exp 

generates 

CALL BASSSCRATCH (unit.rlu.v) 

Format 

UPDATE #chnl-exp [,COUNT int-exp] 

generates 

CALL BASSUPDATE (unit.rlu.v) 

CALL BAS$UPDATE_COUN (unit.rlu.v,count.rlu.v) 


Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value, 
count 

The number of bytes in the record (int-exp). Passed by immediate value. 

BAS$GET_RECORD 

2.1.2 Random I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 

BAS$DELETE deletes the current record on this logical unit. BAS$DELETE must follow a successful 
BAS$FIND_RECORD or BAS$GET_RECORD operation. 
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BAS$FIND_RECORD locates the relative record on this logical unit. 

BAS$GET_RECORD reads the relative record on this logical unit into the foreign buffer. The number 
of the foreign buffer is located in the upper byte of the logical unit number. 

BAS$PUT_RECORD and BAS$PUT_REC_CNT write a record on the logical unit relative to the 
beginning of the current file. For BAS$PUT_REC_CNT, the number of bytes to be written must be 
specified. 

BAS$RESTORE rewinds the relative file on this logical unit to the beginning of the file. 

BAS$UPDATE and BAS$UPDATE_COUN update the current record on this logical unit. These pro¬ 
cedures can only be used on disk files and should follow a successful BAS$FIND_RECORD or 
BAS$GET_RECORD operation. For fixed-length records, the update record must have the same 
length as the record it replaces. For BAS$UPDATE_COUN, the number of bytes in the update record 
must be specified. 


Format DELETE #chnl-exp 

generates CALL BAS$DELETE (unit.rlu.v) 

Format FIND #chnl-exp, RECORD num-exp 

generates CALL BAS$FIND_RECORD (unit.rlu.v, rec-num.rlu.v) 

Format GET #chnl-exp, RECORD num-exp 

generates CALL BAS$GET_RECORD (unit.rlu.v, rec-num.rlu.v) 

Format PUT #chnl-exp, RECORD num-exp [,COUNT int-exp] 

generates CALL BAS$PUT_RECORD (unit.rlu.v, rec-num.rlu.v) 

CALL BAS$PUT_REC_CNT (unit.rlu.v, rec-num.rlu.v, count.rlu.v) 

Format UPDATE #chnl-exp [,COUNT int-exp] 

generates CALL BAS$UPDATE (unit.rlu.v) 

CALL BAS$UPDATE_COUN (unit.rlu.v,count.rlu.v) 

Format RESTORE #chnl-exp 

generates CALL BAS$RESTORE (unit.rlu.v) 


Arguments 

unit 

The specified logical unit {#chnl-exp). Passed by immediate value, 
rec-num 

The relative record number {num-exp). Passed by immediate value, 
count 

The number of bytes in the record {int-exp). Passed by immediate value. 
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BAS$GET-KEY 


2.1.3 Indexed I/O 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls an 
inner level that interfaces to RMS. When program control returns to the user level, the I/O data base 
is removed from the active I/O stack. 

BAS$FIND_KEY locates a record on the logical unit based on the specified key. 

BAS$GET_KEY reads one record on this logical unit with the specified key into the foreign buffer. 
BAS$RESTORE_KEY rewinds the file on this logical unit based on the specified key. 


Format 

generates 

Format 

generates 


{ EEQ 
GE 
GT 

CALL BAS$FIND_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, key-str.rx.dy) 

(EQ 

GET #chnl-exp [,KEY #int-exp1 < GE 

(gt 

CALL BAS$GET_KEY (unit.rlu.v [,key-no.rl.v, rel-opr.rl.v, key-str.rx.dy]) 


! str-exp 
int-exp2 


! str-exp 
int-exp2 


Format RESTORE #chnl-exp [,KEY #int-exp] 

generates CALL BAS$RESTORE_KEY (unit.rlu.v, key-no.rlu.v) 


Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value, 
key-no 

The RMS key number (/nt-exp/). Passed by immediate value, 
rel-opr 

The relational operator. Passed by immediate value. Rel-opr is coded as follows: 

0 EQ 

1 GE 

2 GT 

key-str 

An ASCII text string (str-exp) or an integer ( int-exp2 ) for the key of the record to be found. Passed 
by descriptor. X (data type) can be t, w, or /, and y (parameter form) can be d, s, or z. 


BAS 22 


File Processing Support 


2.2 Terminal-Format I/O 


Each of the BASIC I/O list statements (except statements like PUT and GET) produces three types of 
procedure calls to the Run-Time Library: 

1. An I/O list initialization call 

This call sets up the I/O system for the specific I/O requested. The procedure name consists of 
the prefix BAS$ and the BASIC keyword. If I/O is already active for this or another file number, 
the old request is pushed onto the stack. I/O is active when a function in an I/O list expression 
performs I/O or when a software interrupt (AST) occurs that performs I/O. 

2. I/O list element transmission calls (if any) 

Depending on whether the I/O statement is input or output, each list element in the user- 
supplied I/O list generates a call to the Run-Time Library in the form: 

CALL BAS$IN_d_m (element.wd.m) 
or 

CALL BAS$OUT_d_m_f (element.rd.m) 

The suffix letters d and m are the <data type> and <passing mechanism> of the element as 
described in the Entry Point Summary in the back of this manual. The suffix letter f is the 
<format character> . 

The <data type> can be: 

D D_floating 

F F_floating 

L Longword integer 

T Text 

W Word integer (for input routines only) 

The <passing mechanism> can be: 

V By immediate value 

R By reference 

DX By descriptor (dynamic or static string) 

The <format character> can be: 

S Semicolon formatting 

C Comma formatting 

B No format character 

3. An I/O list termination call 

This call completes I/O operations. 

The following sequence represents a typical BASIC I/O operation: 

Format PRINT #chnl-exp, element_1 

generates CALL BAS$PRINT (unit.rlu.v) 

CALL BAS$OUT_F_V_B (element_1 .rf.v) 

CALL BAS$IO_END 
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In this example: 

1. BAS$PRINT sets up the I/O system to print a series of data elements. 

2. BAS$OUT_F_V_B outputs an F_floating (F) value. It is passed by immediate value (V) with no 
format character (B). 

3. BAS$IO_END writes the record if necessary and completes the I/O operation. 

BAS$INPUT 

2.2.1 I/O List Initialization Calls 

Each procedure sets up the I/O data base for the specified logical unit (if necessary) and then calls 
inner levels that format the data properly in a buffer and interface directly to RMS. 

BAS$INPUT initializes the I/O system to read a series of data elements. 

BAS$INPUT_LINE initializes the I/O system to read from the specified unit, including the line 
terminator. 

BAS$LINPUT initializes the I/O system to read the next line from the specified unit, excluding the 
line terminator. 

BAS$MAT_INPUT initializes the I/O system to input an array. The array is named in the element 
transmitter. 

BAS$MAT_LINPUT initializes the I /O system to input to an array of string data elements. The array is 
named in the element transmitter. 

BAS$MAT_PRINT initializes the I /O system to write the contents of an array to a terminal-format file. 
The array is named in the element transmitter. 

BAS$PRINT initializes the I/O system to print a series of data elements on the next line. 

BAS$PRINT_USING initializes the I/O system to perform a PRINT USING formatted output 
statement. 


Format 

INPUT #chnl-exp 

generates 

CALL BAS$INPUT (unit.rlu.v) 

Format 

INPUT LINE #chnl-exp 

generates 

CALL BAS$INPUT_LINE (unit.rlu.v) 

Format 

LINPUT #chnl-exp 

generates 

CALL BAS$LINPUT (unit.rlu.v) 

Format 

MAT INPUT #chnl-exp 

generates 

CALL BAS$MAT_INPUT (unit.rlu.v) 

Format 

MAT LINPUT #chnl-exp 

generates 

CALL BAS$MAT_LINPUT (unit.rlu.v) 
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Format MAT PRINT #chnl-exp 

generates CALL BAS$MAT_PRINT (unit.rlu.v) 

Format PRINT #chnl-exp 

generates CALL BAS$PRINT (unit.rlu.v) 

Format PRINT #chnl-exp USING str-exp 

generates CALL BAS$PRINT_USING (unit.rlu.v, format.rt.dx) 


Arguments 

unit 

The specified logical unit (#chn/-exp). Passed by immediate value, 
format 

The format string (str-exp). Passed by descriptor. 


BASSIN-d-m 


2.2.2 I/O Transmission Calls 

A call to an element transmission routine is made for each element in the list. Each routine calls an 
inner level routine which interfaces to RMS. The routines modify the I/O data base. 

2.2.2.1 Input Element Transmission Calls — BAS$IN_d_R inputs a number. It enters a data element 
whose destination is passed by reference. The permissible data types (d) are D_floating (D), 
F_floating (F), Longword (L), and Word (W). 

generates CALL BAS$IN_D_R (element.wd.r) 

CALL BAS$IN_F_R (element.wf.r) 

CALL BAS$IN_I_R (element.wl.r) 

CALL BAS$IN_W_R (element.ww.r) 

Arguments 

element 

An area to store the I/O element. The length of the area is determined by the data type — two 
bytes for a word, four bytes for a longword or an F_floating number, and eight bytes for a 
D_floating number. Passed by reference. 

Implicit Outputs 

RECOUNT 

The number of bytes in the record. 
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BAS$IN_T—DX 


BAS$IN_T_DX inputs text. It enters text whose destination is passed by descriptor. 

generates CALL BAS$IN_T_DX (element.wt.dx) 

Arguments 

element 

The destination text. Passed by descriptor. 

Implicit Outputs 

RECOUNT 

The number of bytes in the record. 

BAS$OUT-d-m_f 


2.2.2.2 Output Element Transmission Calls — BAS$OUT_d_V_f causes a number to be printed. The 
source is passed by immediate value. Permitted data types (c/) are: 

• D_floating (D) 

• F_floating (F) 

• Longword (L) 


Permitted format characters (f) are: 

• Semicolon (S) 

• Comma (C) 

• No format character (B) 

generates CALL BAS$OUT_D_V_S (element.rd.v) 
CALL BAS$OUT_D_V_C (element.rd.v) 
CALL BAS$OUT_D_V_B (element.rd.v) 

CALL BAS$OUT_F_V_S (element.rf.v) 
CALL BAS$OUT_F_V_C (element.rf.v) 
CALL BAS$OUT_F_V_B (element.rf.v) 

CALL BAS$OUT_I_V_S (element.rl.v) 

CALL BAS$OUT_l_V_C (element.rl.v) 

CALL BAS$OUT_l_V_B (element.rl.v) 

Arguments 

element 

The value to be printed. Passed by immediate value. 
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BAS$OUT_T_DX_f causes text to be printed. The source is passed by descriptor. Permitted format 
characters (f) are: 

• Semicolon (S) 

• Comma (C) 

• No format character (B) 

generates CALL BAS$OUT_T_DX_S (element.rt.dx) 

CALL BAS$OUT_T_DX_C (element.rt.dx) 

CALL BAS$OUT_T_DX_B (element.rt.dx) 

Arguments 

element 

The source text. Passed by descriptor. 


BAS$IN-MAT 


2.2.2.3 Matrix Input Transmission Calls — BASIC allows one- or two-dimensional arrays to be input 
to and output from a program by means of the MAT PRINT, MAT LINPUT, MAT INPUT, and MAT 
READ statements. 

Example 

Format MAT PRINT array_1 

generates CALL BAS$MAT_PRINT (unit.rlu.v) 

CALL BAS$OUT_MAT_B (arrayl .rf.a) 

CALL BAS$IO_END 

The transmission calls associated with matrix I/O are BAS$IN_MAT and BAS$OUT_MAT_f. 

BAS$IN_MAT performs matrix input transmission. It causes the array to be input one element at a 
time by rows. Input can be continued on the next line by an The routine only changes those 
elements for which new data is entered. 

generates CALL BAS$IN_MAT (array.wx.da) 

Arguments 

array 

The array to receive the data. Passed by descriptor. 

Implicit Outputs 

NUM 

The number of rows or elements entered. 

NUM2 

The number of elements entered in the last row of a two-dimensional array, or zero. 

RECOUNT 

The number of bytes in the record. 
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BAS$OUT_MAT_f 


2.2.2.4 Matrix Output Transmission Calls — BAS$OUT_MAT_f performs matrix output transmission. 
It causes the array to be printed one element at a time. Row and column zero are not printed. 
Permitted format characters (f) are: 

• Semicolon (S) 

• Comma (C) 

• No format character (B) 

Format MAT PRINT array [(subs-expl, subs-exp2)] 

generates CALL BAS$OUT_MAT_S (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

CALL BAS$OUT_MAT_C (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

CALL BAS$OUT_MAT_B (array.rx.da [.subl.rlu.v [,sub2.rlu.v]]) 

Arguments 

array 

The array to be printed. Passed by descriptor, 
subl 

The first subscript. Passed by immediate value. 
sub2 

The second subscript. Passed by immediate value. 


BAS$NUM 

2.2.2.5 Matrix I/O Support Functions — Two functions, NUM and NUM2, support the matrix 
operations. 

BAS$NUM returns the number of elements or rows read. For the last array read, the procedure returns 
the number of rows input in a two-dimensional array or the number of elements input in a one¬ 
dimensional array. This routine uses an area of OWN storage. The value is returned in RO. 

Format NUM 

generates CALL BAS$NUM 

BASSNUM2 

BAS$NUM2 returns the number of elements input in the last row of a two-dimensional array. For a 
list, the routine returns zero. The value is returned in RO. 

Format NUM2 

generates CALL BAS$NUM2 

Implicit Inputs 

NUM2 

The number of elements read in the last row, or zero. 
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BAS$IO—END 


2.2.3 I/O List Termination Call 

BAS$IO_END completes the processing of a BASIC I/O statement. If the last record was an output 
record, it is written (if appropriate) to the output device. Then, BAS$IO_END pops the I/O system to 
a previously active I/O statement (if any). 

generates CALL BAS$IO-END 


BAS$FETCH-BFA 


2.3 Virtual I/O 


The ORGANIZATION VIRTUAL clause is used to open two types of files, block I/O files and virtual 
array files. 

Block I /O files are sequential or random access files that contain a series of blocks. You can store one 
or more records in each block and access the data by specifying a BAS$GET, BAS$GET_RECORD, 
BAS$PUT, or BAS$PUT_RECORD operation. 

Virtual array files are random access files similar to relative files. You can read or write any element in 
the file regardless of its location. 

When BASIC stores data items in a virtual array file, it does not convert them to ASCII characters, but 
stores them in the internal binary representation. Consequently, there is no loss of precision caused 
by data conversion. 

You must use the DIM statement to define storage space for a virtual array file just as you do for a 
regular array. 

BAS$FETCH_BFA fetches a value from an array or virtual array. The destination of the value is passed 
by descriptor. 

BAS$FET_FA_d_R8 fetches a number from an array or virtual array. Depending on d, the data type 
of the number is either D_floating, F_floating, a longword integer, or a word integer. 

BAS$STORE_BFA stores a value in an array or virtual array. The source of the value is passed by 
descriptor. 


BAS$STO_FA_RDX stores a string in an array or virtual array. The string is passed by reference. The 
compiler uses this entry point to avoid creating a descriptor for a string constant. 


BAS$STO_FA_d_R8 stores a number in an array or virtual array. Depending on d, the data type of 
the number is D_floating, F_floating, longword integer, or word integer. 


Format 

A$ = 

generates 

CALL 

Format 

A = E 

generates 

JSB 


JSB 


JSB 


JSB 


B(l%) 

in-val.wd.v = BAS$FET_FA_D_R8 (array-dsc.rd.da, indexl.rl.v [,index2.rl.v]) 
in-val.wf.v = BAS$FET_FA_F_R8 (array-dsc.rf.da, indexl.rl.v [,index2.rl.v]) 

in-val.wl.v = BAS$FET_FA_I_R8 (array-dsc.rl.da, indexl.rl.v [,index2.rl.v]) 

in-val.ww.v = BAS$FET_FA_W_R8 (array-dsc.rw.da, indexl.rl.v [,index2.rl.v]) 
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Format 

B$(l%) = A$ 

generates 

CALL BAS$STORE_BFA (val-dsc.rx.d, array-dsc.wx.da, indexl.rl.v [,index2.rl.v]) 

Format 

B$(l%) = “String Constant” 

generates 

CALL BAS$STO_FA_RDX (str-len.rl.v, str-adr.rt.r, array-dsc.rx.da, indexl.rl.v 
[,index2.rl.v]) 

Format 

B(l%) = A 

generates 

JSB BAS$STO_FA_D_R8 (out-val.rd.v, array-dsc.wd.da, indexl .rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_F_R8 (out-val.rf.v, array-dsc.wf.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_l—R8 (out-val.rl.v, array-dsc.wl.da, indexl.rl.v [,index2.rl.v]) 
JSB BAS$STO_FA_W_R8 (out-val.rvv.v, array-dsc.ww.da, indexl .rl.v [,index2.rl.v]) 

Arguments 


val-dsc 

The value. Passed by descriptor. The data types of the array element and the value must agree. 


array-dsc 

The array or virtual array. Passed by descriptor. 


indexl 

The first index for the array. Passed by immediate value. 
index2 

The second index for the array. Passed by immediate value. (Present only if DSC$B_DIMCT = 2 
in the array descriptor.) 

in-val 

The value from the array or virtual array. The data types of the value and the array element must 
agree. Passed by immediate value. 

str-len 

The length of the string to be stored. Passed by immediate value, 
str-adr 

The string to be stored. Passed by reference, 
out-val 

The value to be stored in the array or virtual array. The data types of the value and the array 
element must agree. Passed by immediate value. 
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Register Usage 

The following table shows the register in which each argument is passed for the JSB: 


Routine(s) 

Parameter - Register 

BAS$FETCH_BFA 

array-dsc — RO 

val-dsc — R1 

indexl - R2 

index2 - R3 

BAS$FET_FA_D_R8 

BAS$FET_FA_F_R8 

BAS$FET_FA_I_R8 

BAS$FET_FA_W_R8 

array-dsc — RO 

indexl — R1 

index2 — R2 

BAS$STORE_BFA 

val-dsc — RO 

array-dsc — R1 

indexl - R2 

index2 — R3 

BAS$STO_FA_RDX 

str-len — RO 

str-adr - R1 

array-dsc - R2 

indexl — R3 

index2 - R4 

BAS$STO_FA_D_R8 

BAS$STO_FA_F_R8 

BAS$STO_FA_l_R8 

BAS$STO_FA_W_R8 

out-val - RO 

array-dsc - R1 

indexl — R2 

index2 - R3 


BASSREAD 

2.4 Internal Input 

Another way to provide a program with data is to build a data block for BASIC to read during 
execution. Consequently, you do not interact with BASIC while the program is running. Instead, you 
supply a pool of data to the program in advance. 

A READ statement causes the variables it lists to be assigned the next available constants, in sequen¬ 
tial order, from the collection of DATA statements. BASIC has a data pointer to keep track of the data 
being READ. Each time the READ statement requests data, BASIC retrieves the next available constant 
indicated by the data pointer. 

In some programs you may need to read the same data more than once. BASIC provides the RESTORE 
statement for this purpose. The RESTORE statement resets the data pointer to the beginning of the first 
DATA statement in the current program unit. 

BAS$READ initializes the I/O system to perform a READ of a compile time initialized DATA area. 

BAS$MAT_READ initializes the I/O system to place values from a DATA area initialized at compile 
time into arrays. 
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BAS$RESTORE_DAT restores the current DATA pointer, so it again points to the beginning of the 
DATA text. The BASIC RESTORE statement calls this routine. 


Format 

READ ABC 

generates 

CALL BAS$READ 

Format 

RESTORE 

generates 

CALL BAS$RESTORE_DAT 

Format 

MAT READ 

generates 

CALL BAS$MAT_READ 


Implicit Inputs 

BAS$I_IN_BEG_DA 

The offset to the beginning of the DATA string (in the argument list to the routine that initialized 
the frame). 

BAS$!_INIT_REL 

The base of the preceding offset. 

BSF$A_INIT_ARG 

The argument list that contains BAS$I_IN_BEG_DA. 

Note 

This procedure manipulates the frame of its caller, which must be a BASIC frame. 
BAS$RESTORE_DAT verifies that its caller is a BASIC program unit by checking for 
the address of BAS$HANDLER in O(FP) in the frame of its caller. 
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Chapter 3 

Auxiliary I/O Support 


This chapter describes routines that support BASIC auxiliary I/O. It discusses the OPEN, CLOSE, 
FREE, and UNLOCK statements. It also describes routines that return file status information and 
routines that perform terminal functions. 


BAS$OPEN 


3.1 OPEN Statement 

The OPEN statement enables you to create a new file or access an existing file. With this statement 
you can explicitly define the aspects of each data transfer operation, including the structure of the file 
and its file sharing capabilities. 


BAS$OPEN supports the BASIC OPEN statement. BAS$OPEN takes two formal parameters: the ad¬ 
dress of the OPEN option block and the address of an array of signed longwords that describe the keys 
for an indexed file. This procedure either opens a file, permitting use of the logical unit number by 
BASIC I/O statements, or signals an error message and stops program execution. 

Format OPEN str-expl AS FILE #chnl-exp1 

generates CALL BAS$OPEN (open-arg-blk.mz.r [,key-info-blk.rl.ra]) 


BAS 33 


Arguments 

open-arg-blk 

The option block. Passed by reference. The layout of the option block is 

A 

A + 4 
A + 8 
A +12 
A +16 
A + 20 
A+ 24 
A+ 28 
A+ 32 
A+ 36 
A+ 40 
A+ 44 


COUNT is the number of bytes remaining in the list. 


ORG represents the organization clause: 

0 terminal format 

1 virtual 

2 sequential 

3 relative 

4 indexed 

5 undefined 


ACCESS indicates what operations you can perform: 

0 modify 

1 modify 

2 write 

3 read 

4 scratch 

5 append 


RFM 

ACCESS 

ORG 

COUNT 

FSZ 

RAT 

SPAN 

ALLOW 

FILE SPEC 

BLOCKSIZE 

RECORDSIZE 


MAP 


FILESIZE 


BUCKET 

EXTENDSIZE 

CONNECT 

(free) 

WINDOW 

(free) 

MLTIBF 

DEFAULTNAME 

USEROPEN 

LOGICAL UNIT 

VFC INFO 


where: 
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RFM 


is the record format: 



0 

1 

2 

3 

4 


variable 

fixed 

variable 

VFC 

stream 


ALLOW specifies what operations you allow others to perform: 


0 none 

1 modify 

2 write 

3 read 

4 scratch 

5 none 



SPAN 



Bit 0 set, NO SPAN specified 
Bit 1 set, CONTIGUOUS specified 
Bit 2 set, NO REWIND specified 
Bit 3 set, TEMPORARY specified 
Bit 4 set, FOR OUTPUT specified 
Bit 5 set, FOR INPUT specified 
Bit 6 set, LUN is an address 
Bit 7 set, LUN is 16 bits (ref only) 
Bit 7 clear, LUN is full 32 bits 


RAT 



represents the RECORDATTR clause: 

0 no RECORDATTR clause 

1 FORTRAN specified 

2 CRLF specified 

3 NONE specified 

4 PRINT specified 

5 ANY specified 


FSZ is the 

FILE SPEC is the 
RECORDSIZE is the 
BLOCKSIZE is the 
MAP is the 

FILESIZE is the 
EXTENDSIZE is the 
BUCKET is the 



size of the VFC buffer, 
descriptor for the file name string, 
size of the record buffer in bytes, 
size of the magtape block in bytes, 
address of the user record buffer, 
size of the file in blocks, 
extend size in buckets, 
bucket size in blocks. 
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WINDOW is the number of retrieval pointers. 

CONNECT is the logical unit (LUN) to which to connect. 

MLTIBF is the number of I/O buffers. 

DEFAULTNAME is the default file name string descriptor. 

USEROPEN is the address of the user's open procedure. 

LOGICAL UNIT is the logical unit number, or its address. 

VFC INFO is the address of the VFC buffer, 

key-info-blk 

The key information block. This parameter is required for an indexed OPEN statement. Passed by 
reference. The layout of the key information block is: 


:B 

:B + 4 
:B + 8 
:B +12 
:B +16 


(free) 

FLDLEN 

KEYNUM 

OFFSET 

FLAGS 

KEYLEN 

(free) 

DTYPE 

OFFSET 

FLAGS 

KEYLEN 

(free) 

DTYPE 



where: 

KEYNUM 

FLDLEN 

KEYLEN 

FLAGS 

OFFSET 

DTYPE 


is the number of keys in this block. 

is the length of each key field. 

is the length of this key. 

Bit 0 set, duplicates are allowed. 

Bit 1 set, changes are allowed. 

Bits 2—7 are unused. 

is the offset of this key in the record. 

is the RMS data type of this key: 

BN2 for unsigned word 

BN4 for unsigned longword 

IN2 for word 

IN4 for longword 

PAC for packed decimal 

STG for text and untranslated VAX data types 


The first key description refers to the primary key, the second to the first alternate key, and so on. 
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BASSCLOSE 


3.2 CLOSE Statement 

BASSCLOSE closes an I/O logical unit from a BASIC program. 

Format CLOSE #chnl-exp 

generates CALL BASSCLOSE (unit.rlu.v) 

Arguments 

unit 

The number of an open logical unit ( #chnl-exp ). Passed by immediate value. 

BAS$UNLOCK 


3.3 Unlock Current Record 

FIND and GET operations on relative and indexed files cause the accessed record to be inaccessible 
to other programs. This process is called locking and ensures that the modifications that you make to 
a record are not altered by another program. The lock normally remains in effect until you specify a 
PUT, DELETE, UPDATE, or another GET or FIND operation. 

You can explicitly unlock a previously locked record by specifying a FREE or an UNLOCK statement. 
BAS$UNLOCK and BAS$FREE support the BASIC statements, UNLOCK and FREE. 

BAS$UNLOCK or BAS$FREE sets up the I /O data base for this logical unit (if necessary) and then calls 
an inner level that interfaces to RMS. When program control returns to this routine, the I/O data base 
is removed from the active I/O stack. BAS$UNLOCK unlocks the current record on this logical unit. 
BAS$FREE unlocks all the records on this logical unit. 

Format FREE #chnl-exp 

generates CALL BAS$FREE (unit.rlu.v) 

Format UNLOCK #chnl-exp 

generates CALL BAS$UNLOCK (unit.rlu.v) 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 


3.4 File Status Routines 

The routines described in this section return information on the status of a file. 
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BAS$BUFSIZ 


3.4.1 Buffer Size 

BAS$BUFSIZ returns the size of the buffer for the specified logical unit number. If the logical unit 
number is closed, a zero is returned. If logical unit number zero is specified, the width of the terminal 
is returned. 

generates ret-value.wl.v = BAS$BUFSIZ (unit.rlu.v) 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value, 
ret-value 

The number of bytes in the buffer, or the width of the terminal. Passed by immediate value. 

BAS$FSP 


3.4.2 File Organization and Attributes 

BAS$FSP returns information about the file open on this logical unit number. This function is espe¬ 
cially useful if the logical unit number was opened with organization UNDEFINED. The result is 
returned as a 32—character string: 

Byte Meaning 

1 The file organization and record format code. If the file organization is VIRTUAL, this byte is 
zero. Otherwise, this byte contains the sum of the codes for the organization and the record 
format. The organization codes are 0 (sequential), 16 (relative), and 32 (indexed). The record 
format codes are 1 (fixed), 2 (variable), and 3 (VFC). 

2 The record attributes code. If the file organization is VIRTUAL, this byte is zero. Otherwise, 
this byte contains the code for the record attributes of the file. The codes are 0 (None), 1 
(FORTRAN), 2 (Carriage Return), and 4 (Print File Format). 

Normally, files created by BASIC have the Carriage Return record attribute, files created by FOR¬ 
TRAN have the FORTRAN record attribute, and print files created by COBOL have the Print File 
Format attribute. BASIC and RUNOFF use the None attribute to provide a character stream in which 
record boundaries have no significance. 

3-4 The maximum record size, RMS field FAB$W_MRS. 

5—8 The highest numbered virtual block allocated to the file, RMS field FAB$I_ALQ. 

9-10 If the current logical unit is a magtape, this word contains the block size, RMS field 

FAB$W_BLS. Otherwise, byte 9 contains the bucket size, RMS field FAB$B_BKS, and byte 
10 is zero. 

11 If the file organization is INDEXED, this byte contains the number of keys. Otherwise it is 
zero. 

12 Zero. 
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13-16 The highest record number that can be written into the file, RMS field FAB$I_MRN. 

17-20 RMS field RAB$I_BKT. When performing sequential operations on a relative or indexed file, 

the record number of the last record acted upon. For nonsequential operations on a relative 
or indexed file, it remains unchanged from its previous value. For other organizations, this 
field is undefined. 

21-32 Zero. 

The FSP$ function will fail if the specified logical unit number is invalid, or if the logical unit is not 
open. Logical unit zero always gives organization SEQUENTIAL, record format VARIABLE, record 
attributes NONE. All other bytes are zero. 


generates CALL BAS$FSP (result.wb.dx, unit.rlu.v) 

Arguments 

result 

The 32-byte result. Passed by descriptor. 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 

BAS$STATUS 


3.4.3 Status of Last Logical Unit Opened 

BAS$STATUS returns the status of the last logical unit opened. The OPEN statement has saved the 
necessary bits in I_STATUS, an OWN cell shared by these routines. 

Format int-vbl = STATUS 

generates ret-status.wlc.v = BAS$STATUS 

Arguments 

ret-status 

A longword completion code ( int-vbl ) representing the status of the last opened logical unit. 
Passed by immediate value. Bits 0 thru 5 reflect device characteristics as follows: 

Bit Characteristic 

0 Record-oriented 

1 Carriage-control 

2 Terminal device 

3 Directory device (disk) 

4 Single-directory device 

5 Sequential, block-oriented (magtape) 


3.5 Terminal Functions 

The following sections describe the BAS$ procedures that support terminal functions. 
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BAS$CANTYPAHEAD 


3.5.1 Cancel Type-Ahead 

BAS$CANTYPAHEAD suppresses the type-ahead feature on the specified logical unit. 

generates CALL BAS$CANTYPAHEAD (unit.rlu.v) 

Arguments 

unit 

The logical unit number (#cbn/-exp). Passed by immediate value. 

Implicit Outputs 

The suppress type-ahead flag is set. 

BAS$CCPOS 

3.5.2 Current Cursor Position 

BAS$CCPOS returns the current cursor position on the given logical unit unless zero is specified. 
Logical unit zero has input and output data bases. When logical unit zero is specified, BAS$CCPOS 
returns the current cursor position for the output data base. This procedure supports the BASIC 
function CCPOS. 

Format int-vbl = CCPOS (#chnl-exp) 

generates cursor-pos.wl.v = BAS$CCPOS (unit.rlu.v) 

Arguments 

cursor-pos 

A longword integer value ( int-vbl ) representing the current cursor position of indicated logical 
unit. Passed by immediate value. 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 

Implicit Inputs 

Current cursor position for a logical unit. 

BAS$CTRLC 

3.5.3 Enable/Disable CTRL/C Traps 

BAS$CTRLC enables CTRL/C traps, so a CTRL/C will cause the user's program to take an 
ON ERROR GOTO branch. 

BAS$RCTRLC disables CTRL/C traps, so a CTRL/C will cause the user's program to stop, as usual. 
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Format 


int-vbl = CTRLC 


generates CALL BAS$CTRLC 

Format int-vbl = RCTRLC 

generates CALL BAS$RCTRLC 


BASSECHO 


3.5.4 Enable /Disable Echoing 

BAS$ECHO enables and BASSNOECHO disables echoing on the specified logical unit. 
Format int-vbl = ECHO(#chnl-exp) 

generates CALL BASSECHO (unit.rlu.v) 

Implicit Outputs 

Clears the NOECHO flag. 

Format int-vbl = NOECHO(#chnl-exp) 

generates CALL BASSNOECHO (unit.rlu.v) 

Implicit Outputs 

Sets the NOECHO flag. 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 


BAS$SLEEP 


3.5.5 Sleep Statement 

BAS$SLEEP suspends program execution for the specified number of seconds, or until a terminator is 
typed on the controlling terminal. 

Format SLEEP int-exp 

generates CALL BAS$SLEEP (seconds.rl.v) 

Arguments 

seconds 

The number (int-exp) of seconds to wait. Passed by immediate value. 
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BAS$RCTRLO 


3.5.6 Cancel CTRL/O 

BAS$RCTRLO cancels the effect of a CTRL/O, which suppresses output, for the specified logical unit. 
If the logical unit is not OPEN, this routine performs no operation. 

Format int-vbl = RCTRLO(#chnl-exp) 

generates CALL BAS$RCTRLO (unit.rlu.v) 

Implicit Outputs 

The cancel CTRL/O flag is set. 

Arguments 

unit 

The logical unit number (#chn/-exp). Passed by immediate value. 

BAS$WAIT 

3.5.7 Wait Statement 

BAS$WAIT limits the time an INPUT statement will wait when the input device is a terminal. If the 
user does not reply before the indicated number of seconds, an error trap (which the user can 
intercept) will occur. 

Format WAIT int-exp 

generates CALL BAS$WAIT (seconds.rl.v) 

Arguments 

seconds 

The maximum number ( int-exp ) of seconds to wait. Passed by immediate value. 

Implicit Outputs 

The number of seconds to wait. This parameter is used to set the time-out field RAB$B_TMO. 
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Chapter 4 

Format Processing, Conversion, and Comparison 


This chapter discusses the procedures that convert data from one type to another for input and output. 
It also describes the BAS$ routines that manipulate and compare strings and those that perform 
exponentiation. 

4.1 Formatted Output Conversion 

The following sections describe the BAS$ facility procedures available for formatted output 
conversion. 


BAS$CHANGE-NA-S 


4.1.1 Convert Array of Numbers to String 

BAS$CHANGE_NA_S changes an array of numbers to a string. The first number is the length of the 
string. 

Format CHANGE num-array TO str-vbl 

generates CALL BAS$CHANGE_NA_S (in-str.rx.da, out-str.wt.dx) 

Arguments 

in-str 

The source array ( num-array ). The numbers can be word, longword, F_floating, or D_floating. 
The array can be one- or two-dimensional. Passed by descriptor. 

out-str 

The destination string (str-vbl). The string can be dynamic or static. Passed by descriptor. 
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BAS$CHR 


4.1.2 Convert Byte to a One-Character String 

BAS$CHR converts an unsigned byte integer to a one-character string according to the semantics of 
the destination string. The value of the input byte can vary from 0 to 255. 

Format str-vbl = CHR$(int-exp) 

generates CALL BAS$CHR (out-str.wt.dx, value.rbu.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

The ASCII character (/nt-exp) to be converted. Passed by immediate value. 


BAS$CVT-OUT_x_E 


4.1.3 Convert Floating-Point Number to E-format 

BAS$CVT_OUT_D_E or BAS$CVT_OUT_F_E converts a floating-point number to explicit point 
scaled notation (E-format). These routines support the BASIC statements PRINT and PRINT USING. 

BAS$CVT_OUT_F_E converts a single-precision F_floating number and returns up to six significant 
digits. BAS$CVT_OUT_D_E converts a double-precision D_floating number and returns up to 16 
significant digits. 

generates CALL BAS$CVT_OUT_x_E (value.rx.r, num-int.rlu.v, num-fra.rlu.v, flags.rlu.v, 
out-str-len.wwu.r, out-str.wt.dx [,sca-fac.rb.v] [,currency.rt.dx] 

[,digit-sep.rt.dx] [,radix-pt.rt.dx]) 

Arguments 

value 

The F_floating or D_floating number to be converted. Passed by reference, 
num-int 

The number of integer digits in the destination string. Passed by immediate value, 
num-fra 

The number of fraction digits in the destination string. Passed by immediate value, 
flags 

The special editing control flags. None is used at present. Passed by immediate value, 
out-str-len 

The destination string length. Passed by reference, 
out-str 

The destination string. Passed by descriptor. 
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sca-fac 

The BASIC scale factor. The value can vary from 0 to -6. Passed by immediate value. 

currency (PRINT USING only) 

The currency string. Passed by descriptor. 

digit-sep (PRINT USING only) 

The digit separator string. Passed by descriptor. 

radix-pt (PRINT USING only) 

The radix point string. Passed by descriptor. 

Messages 

STR$_TRU 

String truncated. The value did not fit into the field described. 


BAS$CVT-OUT-D-G 


4.1.4 Convert D-floating Number to E- or F-format 

BAS$CVT_OUT_D_G converts a double-precision D_floating number to either E- or F-format de¬ 
pending on the value of the D_floating number. This routine supports the BASIC statements PRINT, 
PRINT USING, NUM$, and STR$. If a number can be represented in num-digits without loss of 
accuracy, then it is returned in F-format. Otherwise, it is returned in E-format. The default value for 
num-digits is six. 

generates CALL BAS$CVT_OUT_D_G (value.rd.r, flags.rlu.v, out-str-len.ww.r, out-str.wt.dx 
[,sca-fac.rb.v [,num-digits.rl.v]]) 


Arguments 

value 

The D_floating number to be converted. Passed by reference, 
flags 

The special editing control flags: 

bit 0 set - no leading or trailing spaces 
Passed by immediate value, 
out-str-len 

The destination string length. Passed by reference, 
out-str 

The destination string. Passed by descriptor, 
sca-fac 

The BASIC scale factor for double precision values. The value can vary from 0 to —6. Passed by 
immediate value. 

num-digits 

The number of digits carried in an F—format conversion. The default value is six. 

Messages 

STR$_TRU 

String truncated. The value did not fit in the field described. 
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BAS$CVT_OUT_x_F 


4.1.5 Convert a Floating-Point Number to F-format 

BAS$CVT_OUT_D_F or BAS$CVT_OUT_F_F converts a floating-point number to explicit point 
unsealed notation (F format), right justified. TFiese routines support the BASIC statements 
PRINT USING and NUM1$. 

BAS$CVT_OUT_F_F converts a single-precision F_floating number and returns up to six significant 
digits. BAS$CVT_OUT_D_F converts a double-precision D_floating number and returns up to 16 
significant digits. 

generates CALL BAS$CVT_OUT_x_F (value.rx.r, num-int.rlu.v, num-fra.rlu.v, flags.rlu.v, 
out-str-len.ww.r, out-str.wt.dx [,sca-fac.rb.v] [,currency.rt.dx] [,digit-sep.rt.dx] 
[,radix-pt.rt.dx]) 

Arguments 

value 

The F_floating or D_floating number to be converted. Passed by reference, 
num-int 

The number of integer digits in the destination string Passed by immediate value, 
num-fra 

The number of fraction digits in the destination string. Passed by immediate value, 
flags 

The special editing control flags as follows: 

bit 0 set - no leading or trailing spaces 

bit 1 set — trailing sign 

bit 2 set — insert commas 

bit 3 set — float currency symbol 

bit 4 set — asterisk fill to left of most significant digits 

bit 5 set — floating decimal point, disregard nurn-int and num-fra 

bit 6 set - a decimal point is required 

Passed by immediate value. 

out-str-len 

The destination string length. Passed by reference, 
out-str 

The destination string. Passed by descriptor, 
sca-fac 

The BASIC scale factor. The values can vary from 0 to —6. Passed by immediate value, 
currency 

The currency string. Passed by descriptor, 
digit-sep 

The digit separator string. Passed by descriptor, 
radix-pt 

The radix point string. Passed by descriptor. 


BAS 46 Format Processing, Conversion, and Comparison 




Messages 

STR$TRU 

String truncated. Value did not fit in the field described. 


BAS$FORMAT_x 


4.1.6 Convert a Floating-Point Number to Formatted String 

BAS$FORMAT_D converts a D_floating number according to a format string and the rules of the 
BASIC PRINT USING statement. 

BAS$FORMAT_F converts an F_floating number according to a format string and the rules of the 
BASIC PRINT USING statement. This routine can allocate a temporary dynamic string and signal any 
of STR$GET1's errors. This routine can also call STR$COPY, which also signals errors. 

BAS$FORMAT_D and BAS$FORMAT_F call the BASIC format interpreter, which can allocate space 
to the destination string. 

Format str-vbl = FORMAT$(num-exp, str-exp) 

generates CALL BAS$FORMAT_x (out-str.wt.dx, value.rx.r, format.rt.dx) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

A D_floating or F_fbating value (num-exp) to be converted. Passed by reference, 
format 

The format string (str-exp). Passed by descriptor. 

Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for destination string allocation. 


BAS$STR-x 


4.1.7 Convert Number to Numeric String 

BAS$STR_x procedures format a number as the BASIC PRINT statement would, omitting leading and 
trailing spaces. The resultant string is copied to the destination string. 

BAS$STR_D converts a D_floating number, BAS$STR_F converts an F_floating number, and 
BAS$STR_L converts a longword integer. 

Format str-vbl = STR$(num-exp) 

generates CALL BAS$STR_x (out-str.wt.dx, value.rx.r) 
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Arguments 


out-str 

The destination string ( str-vbl ). Passed by descriptor, 
value 

The D—floating, F_floating, or longword integer value ( num-exp ) to be converted. Passed by 
reference. 

BAS$RAD 

4.1.8 Convert Word to Three-Character String 

BAS$RAD converts a 16-bit integer value representing a RADIX50 number to a destination string of 
three ASCII characters. The procedure supports the BASIC function RAD$. 

Note 

This procedure is provided for compatibility only. Do not use it in new development. 

Format str-vbl = RAD$ (int-exp) 

generates CALL BAS$RAD (out-str.wt.dx, rad50.rw.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
rad 50 

A RADIX50 number ( int-exp ) to be converted to a three-character ASCII string. Passed by immedi¬ 
ate value. 

BAS$EDIT 

4.1.9 Edit String 

BAS$EDIT implements the BASIC EDIT function. For AST reentrancy, BAS$EDIT creates a local 
dynamic string descriptor and calls STR$COPY to copy the source string to the local string. Then the 
routine edits the local string. BAS$EDIT then calls STR$COPY to copy the edited string to the destina¬ 
tion string. 

Format str-vbl = EDIT$(str-exp, int-exp) 

generates CALL out-str.wt.dx = BAS$EDIT (in-str.rt.dx, mask.rwu.v) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor. 
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mask 

The edit control flags (/nt-exp): 

bit 0 set — character parity bits discarded 
bit 1 set - all spaces and tabs discarded 

bit 2 set — carriage returns, line feeds, form feeds, deletes, and nulls discarded 

bit 3 set - leading spaces and tabs discarded 

bit 4 set - multiple spaces and tabs converted to single space 

bit 5 set - lowercase letters converted to uppercase 

bit 6 set — brackets converted to parentheses 

bit 7 set - trailing spaces and tabs discarded 

bit 8 set - editing suppressed for characters within quotation marks 
Passed by immediate value. 


Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for the destination string allocation. 


BAS$TRM 


4.1.10 Trim Trailing Tabs and Spaces 

BAS$TRM copies a source string into the destination string deleting trailing tabs and spaces. 
BAS$TRM finds the last nonblank character by starting at the end of the source string and using each 
character to search a table that has a flag for spaces and tabs. 

Format str-vbl = TRM$(str-exp) 

generates CALL BAS$TRM (out-str.wt.dx, in-str.rt.dx) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor. 

Messages 

STR$_INSVIRMEM 

Insufficient virtual memory for destination string allocation. 

4.2 Formatted Input Conversion 

The following sections describe the BAS$ facility procedures available for formatted input conversion. 
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BAS$CHANGE-S-NA 


4.2.1 Convert String to Array of Numbers 

BAS$CHANGE_S_NA changes a source string to a list of numbers. The first number is the length of 
the string. The data type of the numbers can be word, longword, F_floating, or D_floating. The array 
has one or two dimensions. 

Format CHANGE str-exp TO num-array 

generates CALL BAS$CHANGE_S_NA (in-str.rt.dlx, out-str.wx.da) 

Arguments 

in-str 

The source string (str-exp). Passed by descriptor, 
out-str 

The destination array (num-array). The data type of the array elements can be word, longword, 
F_floating, or D_floating. The array can have one or two dimensions. Passed by descriptor. 

Messages 

BAS$K_ILLNUM 

Input is nonnumeric. 

BAS$VAI_x 

4.2.2 Convert Numeric String to Number 

BAS$VAI_x computes the numeric value of an input string by calling a VAX-11 Run-Time Library 

conversion routine. If the input string does not contain a legitimate number, the routine signals a 
noncontinuable error. The optional second argument can override information in the caller's frame. 
This second argument is not used by compiled code, but by the compiler at compile time. 

BAS$VAI_D returns the D_floating value in RO and R1. If a BASIC program calls this routine, the 

program passes its scaling information to it. Otherwise, it passes a zero. 

BAS$VAI_F returns the F_floating value in RO. 

BAS$VAI_L returns the longword integer value in RO. 

Format num-vbl = VAL(num-str) 

generates CALL value.wx.v = BAS$VAI_x (in-str.rt.dx [,sca-fac.rb.v]) 

Arguments 

value 

The D_floating, F_floating, or longword integer result (num-vbl) of the conversion. Passed by 
immediate value. 

in-str 

The source string (num-str). Passed by descriptor, 
sca-fac 

The scale factor. Passed by immediate value. 
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Messages 

BAS$K_ILLNUM 

Input is nonnumeric. 

4.3 String Manipulation Procedures 

The following sections describe the BAS$ procedures available for string manipulation. 

BAS$SUM 

4.3.1 Arithmetic Procedures 

BAS$DIF calculates the difference between two numeric strings (in-strl — in-str2) and places the result 
in the destination string. 

BAS$PLACE rounds or truncates a numeric string to a particular position and places the resultant 
string in the destination string. 

BAS$PROD calculates the product of two numeric strings (in-strl * in-str2) and places the result in the 
destination string (out-str). 

BAS$QUO calculates the quotient of two numeric strings (in-strl / in-str2) and places the resultant 
string in the destination string (out-str). No more than 55 digits of precision are permitted. 

BAS$SUM adds two numeric strings (in-strl T in-str2) and places the sum in the destination string 
(out-str). 

Format str-vbl = DIF$(str-exp1, str-exp2) 

generates CALL BAS$DIF (out-str.wt.dx, in-strl .rt.dx, in-str2.rt.dx) 

Format str-vbl = PLACE$(str-exp1, int-exp) 

generates CALL BAS$PLACE (out-str.wt.dx, in-strl .rt.dx, precision.rl.v) 

Format str-vbl = PROD$(str-exp1, str-exp2, int-exp) 

generates CALL BAS$PROD (out-str.wt.dx, in-strl .rt.dx, in-str2.rt.dx, precision.rl.v) 

Format str-vbl = QUO$(str-exp1, str-exp2, int-exp) 

generates CALL BAS$QUO (out-str.wt.dx, in-strl .rt.dx, in-str2.rt.dx, precision.rl.v) 

Format str-vbl = SUM$(str-exp1, str-exp2) 

generates CALL BAS$SUM (out-str.wt.dx, in-strl .rt.dx, in-str2.rt.dx) 

Arguments 

in-strl 

The first source string (str-expl). The numeric string should be in explicit point, unsealed notation 
(F-format). Passed by descriptor. 

in-str2 

The second source string (str-exp2). The numeric string should be in explicit point, unsealed 
notation (F—format). Passed by descriptor. 
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out-str 

The destination string (str-vbl). Passed by descriptor, 
precision 

The number (/nt-exp) of digits to retain in the resultant string. Passed by immediate value. 

Messages 

BAS$_PROLOSSOR 
Program lost, sorry. 

BAS$_FLOPOIERR 

Floating-point error. Precision (/nt-exp) is greater than 55. 

BAS$_DIVBY_ZER 

The divisor (in-str2) is zero. 

BAS$RSET 


4.3.2 Copy a String, Right-Justified, by Descriptor 

BAS$RSET copies a source string of any class or data type to a destination string of any class or data 
type. The source string is right-justified in the destination string with truncation or blank padding on 
the left. BAS$RSET uses fixed-length semantics on the destination string. Consequently, the current 
length for dynamic strings remains unaltered regardless of the length of the source string. A descriptor 
locates the source string. 

Format RSET str-vbl = str-exp 

generates CALL BAS$RSET (out-str.wt.dx, in-str.rt.dx) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string (str-exp). Passed by descriptor. 

BAS$RSET-R 


4.3.3 Copy a String by Reference 

BAS$RSET_R copies a source string of any class or data type to a destination string of any class or 
data type. The source string is right-justified in the destination string with truncation or blank padding 
on the left. BAS$RSET_R uses fixed-length semantics on the destination string. The current length for 
dynamic strings remains unchanged regardless of the length of the source string. The source string is 
located by reference. 

generates CALL BAS$RSET_R (out-str.wt.dx, in-str-len.rlu.v, in-str-adr.rlu.v) 
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Arguments 


out-str 

The destination string. Passed by descriptor, 
in-str-len 

The length of the source string. Passed by immediate value, 
in-str-adr 

The address of the source string. Passed by immediate value. 


BAS$SEG 


4.3.4 Extract a Substring 


The following routines extract a substring of a source string according to BASIC syntax. They then 
copy the extracted substring to the destination string. 

BAS$SEG extracts the characters starting at the position specified by the third parameter and continu¬ 
ing to the position specified by the fourth parameter. If the starting position is less than one, one is 
used. If the ending position is greater than the length of the source string, the length of the source 
string is used. If the starting position is greater than the ending position, a null string is returned. 

BAS$LEFT extracts the characters starting at the leftmost position (1) and continuing through the 
position specified by the third parameter. If the input character position is greater than the length of 
the input string, then the length of the input string is used. If the input character position is less than 
one, the destination string becomes a null string. 

BAS$RIGHT extracts the characters starting at the character position specified by the third parameter 
and continuing through the last character of the source string. If the input character position is less 
than two, the entire source string is copied to the destination string. If the input character position is 
greater than the length of the source string, the destination string becomes a null string. 


Format 

str-vbl 

generates 

CALL 

Format 

str-vbl 

generates 

CALL 

Format 

str-vbi 

generates 

CALL 


= SEG$(str-exp, int-expl, int-exp2) 

BASSSEG (out-str.wt.dx, in-str.rt.dx, start-pos.rw.v, end-pos.rw.v) 
= LEFT$(str-exp, int-exp2) 

BAS$LEFT (out-str.wt.dx, in-str.rt.dx, end-pos.rw.v) 

= RIGHT$(str-exp, int-expl) 

BAS$RIGHT (out-str.wt.dx, in-str.rt.dx, start-pos.rw.v) 


Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string ( str-exp ). Passed by descriptor. 
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start-pos 

The character position ( int-expl ) of the first character extracted from the source string. For 
BAS$LEFT, the starting position is always equal to one. Passed by immediate value. 

end-pos 

The character position (int-exp2) of the last character extracted from the source string. For 
BAS$RIGHT, the ending position is always equal to the length of the source string. Passed by 
immediate value. 

BAS$STRING 


4.3.5 Generate a String 

BAS$STRING writes a specified number of duplicate characters into the destination string. 

• If the destination string is a fixed-length string, and the desired length is greater than the length of 
the destination string, the routine will copy only as many characters as the destination string will 
hold. 

• If the destination string is a fixed-length string, and the desired length is less than the length of the 
destination string, then the routine copies the desired number of characters and fills in the rest of 
the destination string with blanks. 

• If the destination string is a dynamic string, after execution of this procedure the length of the 
destination string is equal to the desired length. 

BAS$TAB produces a destination string with enough spaces to advance the output device to the 
position specified by the position parameter, if the string is printed. If the output device has moved 
beyond the specified position, the destination string is a null string. 

If the call is not lexically inside an I /O list, the compiler converts a call to the TAB function to a call 
to BAS$STRING. Thus, this procedure supports only the "true” BASIC TAB function. 

Format str-vbl = STRING$(int-exp1, int-exp2) 

generates CALL BAS$STRING (out-str.wt.dx, len.rw.v, char.rb.v) 

Format PRINT TAB(int-exp) 

generates CALL BAS$TAB (out-str.wt.dx, position.rl.v) 

Implicit Inputs 

The current position of the printing device, taken from the current I/O list. 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
len 

The number ( int-expl) of duplicate characters. Passed by immediate value. 
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char 

The ASCII character (int-exp2) to be duplicated. Passed by immediate value, 
position 

The target position (/nt-exp). Passed by immediate value. 

Messages 

BAS$_SYNERR 
Syntax error. 


BAS$POS 


4.3.6 Return Relative Position of Substring 

BAS$POS takes two source strings of any data type and class and, starting at the specified position, 
returns the position of the second string within the first string. 

BAS$INSTR performs the same function as BAS$POS, but with the parameters in a different order. 
Format int-vbl = POS(str-exp1, str-exp2, int-exp) 

generates CALL find-pos.wlu.v = BAS$POS (in-str.rt.dx, ub-str.rt.dx, start-pos.rw.v) 

Format int-vbl = INSTR(int-exp, str-expl, str-exp2) 

generates CALL find-pos.wlu.v = BAS$INSTR (start-pos.rw.v, in-str.rt.dx, sub-str.rt.dx) 
Arguments 

find-pos 

The starting position ( int-exp ) of the substring relative to the start of the source string. Passed by 
immediate value. 

General rules: 

• If the specified substring does not exist, find-pos equals zero. 

• If the substring is null, and the specified starting position is less than or equal to one, find-pos 
equals one. 

• If the substring is null, and the specified starting position is greater than one and less than or 
equal to the string's length, find-pos equals the specified starting position. 

• If both the substring and the source string to be searched are null, find-pos equals one. 
in-str 

The source string (str-expl). Passed by descriptor, 
sub-str 

The substring (str-exp2). Passed by descriptor, 
start-pos 

The position within the source string at which the procedure is to begin searching for the specified 
substring. If the value is less than one, BASIC assumes a starting position of one. If the value is 
greater than the source string length, an error is signaled. Passed by immediate value. 

Messages 

BAS$_PROLOSSOR 
Program lost, sorry 
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BAS$POWxy 


4.4 Exponentiation Procedures 


BAS$POWDD calculates the D_floating result of raising a D_floating base to a D_floating exponent. 

BAS$POWDJ calculates the D_floating result of raising a D_floating base to a longword integer 
exponent. 

BAS$POWRR calculates the F_floating result of raising an F_floating base to an F_floating exponent. 


BAS$POWRJ calculates the F_floating result of raising an F_floating base to a longword integer 
exponent. 

BAS$POWJJ calculates the longword integer result of raising a longword integer base to a longword 
integer exponent. 

BAS$POWII calculates the word integer result of raising a word integer base to a word integer 
exponent. 

The exponentiation procedures use the following table for unusual cases: 


base > 0 

base = 0, exp > 0 
base = 0, exp = 0 
base = 0, exp < 0 
base < 0, exp even integer 
base < 0, exp odd integer 


Call OTS$POWxy, normal case 

Return zero 

Return one 

Error: divide by zero 

Call OTS$POWxz with -base 

Call OTS$POWxz with -base, negate result 


where: 

x is the base data type code 

y is the exponent data type code 

z is T for BAS$POWII and ')' for all others 


Format Z = X ** Y 

generates CALL value.wx.v = BAS$POWxy (base.rx.v, exp.ry.v) 

Arguments 

value 

The D_floating, F_floating, longword integer, or word integer result (Z) of the exponentiation. 
Passed by immediate value. 

base 

The D_floating, F_floating, longword integer, or word integer base (X). Passed by immediate 
value. 


exp 

The D_floating, F_floating, longword integer, or word integer exponent (Y). Passed by immediate 
value. 

Messages 

BAS$_DIVBY_ZER 
Divide by zero. 
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4.5 Comparison Procedures 

The following sections describe the BAS$ procedures available for comparing two entities. 

BAS$COMPxxx 


4.5.1 Compare Strings 

BAS$COMP compares two numeric strings by subtracting in-strl from in-str2 and testing the result for 
zero. 

Format int-vbl = COMP%(str-exp1, str-exp2) 

generates CALL diff.wl.v = BAS$COMP (in-strl .rt.dx, in-str2.rt.dx) 

BAS$COMPARE takes two source strings of any data type and class, compares their length and 
contents, and returns a zero if both are the same or a one if they are not. 

generates CALL match.wl.v = BAS$COMPARE (in-strl .rt.dx, in-str2.rt.dx) 

Arguments 

diff 

The result of the subtraction. Diff is zero if the two source strings are equal, minus one if in-strl is 
less than in-strl, or one if in-strl is greater than in-str2. Passed by immediate value. 

match 

The result of the comparison. Match is zero if the two source strings are exactly the same in length 
and content. Otherwise, match is one. Passed by immediate value. 

in-strl 

The first source string. Passed by descriptor. 
in-str2 

The second source string. Passed by descriptor. 


BAS$CMPx_APP 


4.5.2 Compare Floating-Point Values 

The compare approximate procedures compare two floating-point values. If the values will be the 
same when displayed by a PRINT statement, they are considered approximately equal. This function 
is useful, for example, in computer-assisted education applications, when one value is computed 
while another is read from the terminal. If the two values print the same, you do not want to say: 
"Wrong! You typed x, the correct answer is x." 

BAS$CMPD_APP compares two D_floating values. BAS$CMPF_APP compares two F_floating 
values. 

generates ret-status.wlc.v = BAS$CMPx_APP (vall.rx.v, va!2.rx.v) 
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Arguments 

vail 

The first D_floating or F_floating value to compare. Passed by immediate value. 
val2 

The second D_floating or F_floating value to compare. Passed by immediate value, 
ret-status 

A longword integer value. If the two values are "approximately equal," that is, if their printed 
forms are the same, ret-status equals zero. Otherwise, ret-status equals one. Passed by immediate 
value. 
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Chapter 5 

Compiled-Code Support Procedures 


The routines described in this chapter support statements in BASIC compiled code. They perform 
functions such as: 

• Building and removing BASIC frames 

• Returning the date and time 

• Initializing the user's environment 

• Deleting a file 

• Generating random numbers 

• Manipulating matrices 

• Scaling and descaling D_floating values 

• Implementing the XLATE function 

5.1 Build Frames 

These routines build frames for BASIC. Frames are used for main routines, external functions, external 
subroutines, internal functions (DEF), internal subroutines (GOSUB), and condition handlers. 

BAS$INIT—C—GSB 


5.1.1 Computed GOSUB Statement 

BAS$INIT_C_GSB computes the index for a computed GOSUB. Then it performs GOSUB processing 
just like BAS$INIT_GOSUB. 


Format 

generates 


ON int-exp GOSUB lin-numl [,lin-num2] ... 
CALL BAS$INIT_C—GSB (table.rx.r, index.rl.v) 
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Arguments 

table 

A table of offsets (lin-numl , Iin-num2, ...) to the lines starting each subroutine. The first longword 
is the number of entries in the table. Each entry occupies a word. Passed by reference. 

index 

The index (/nt-exp) into the table. Passed by immediate value. 

Messages 

BAS$_ON_STAOUT 

ON GOSUB statement index is out of range. 

Notes 

BAS$INIT_C_GSB leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. BAS$END_GSB_R8 removes them. 

BAS$INIT-DEF-R8 

5.1.2 DEF Statement 

BAS$INIT_DEF_R8 builds a frame for a BASIC DEF statement. The frame is allocated on the stack, 
and RIO and R9 are set to point to it. The argument list describes the allocation method. 

Format DEF FNvbll [([data-type]vbl2 [,[data-type]vbl3] [, ... ])] = exp 

generates JSB BAS$INIT_DEF_R8 (arg-list.rx.v, data-reloc.ra.v) 

Arguments 

arg-list (RO) 

The address of the list of information needed to build the frame. Passed by immediate value, 
data-reloc (R1) 

The address of the major procedure's contribution to the data PSECT. The argument list is thus 
position independent. Passed by immediate value. 

Implicit Outputs 

The values of RIO and R9, which point to the automatic: and the temporary storage. 

Notes 

BAS$INIT_DEF_R8 leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. BAS$END_DEF_R8 removes them. 


BAS$INIT—GOSUB 

5.1.3 GOSUB Statement 

BAS$INIT_GOSUB builds a frame for a BASIC GOSUB statement. The frame is allocated on the 
stack. R11, RIO, and R9 are not touched. 

Format GOSUB lin-num 

generates CALL BAS$INIT_GOSUB (new-pc.ra.v) 
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Arguments 


new-pc 

The address ( lin-num) of the GOSUB target line. Passed by immediate value. 

Notes 

BAS$INIT_GOSUB leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. BAS$END_GSB_R8 removes them. 


BAS$INIT—IOL 


5.1.4 Immediate Mode Code 

BAS$INIT_IOL builds a frame for immediate mode code. The frame is allocated on the stack. R11, 
RIO, and R9 are set from the root's frame, which contains the variables known to the suspended 
program. 

Format basic 

generates CALL BAS$INIT_IOL (new-pc.ra.v, root-fmp.ra.v) 

Arguments 

new-pc 

The address (/nt-exp) of the immediate mode code. Passed by immediate value, 
root-fmp 

The address of the frame that contains the variables. Passed by immediate value. 

Notes 

BAS$INIT_IOL leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the com¬ 
piled BASIC code. The compiled RET instruction removes them. 


BAS$INIT—R8 


5.1.5 Major Procedure 

BAS$INIT_R8 builds a frame for a BASIC major procedure. The frame is allocated on the stack, and 
R11 and R9 are set to point to it. The argument list describes the allocation method. 

Format basic 

generates JSB BAS$INIT_R8 (arg-list.rx.v, data-reloc.ra.v, code-reloc.ra.v) 

Arguments 

arg-list 

The address of the descriptor for a list of information needed to build the frame. Passed by 
immediate value. 

data-reloc 

The address of this procedure's data. Data offsets in the argument list are based on this value. 
Passed by immediate value. 

code-reloc 

The address of this procedure's code. Offsets in the PC delta table are based on this value. Passed 
by immediate value. 
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Implicit Inputs 

Information from the previous frame, if it is a BASIC frame. 

Implicit Outputs 

The values of R11 and R9, which point to the automatic and the temporary storage. 

Notes 

BAS$INIT_R8 leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the compiled 
BASIC code. BAS$END_R8 removes them. 

BAS$INIT-ONERR 

5.1.6 ON ERROR Statement 

BAS$INIT_ONERR builds a frame for a BASIC condition handler. The frame is allocated on the stack 
and R9 points to its temporary storage. RIO and R11 are set up from the frame that declared the error 
handler. 

Format ON ERROR GOTO lin-num 

generates CALL ret-value.wa.v = BAS$INIT_ONIERR (old-fmp.ra.v, new-pc.ra.v) 

Arguments 

ret-value 

The return value of the routine is determined by how the condition handler terminates. See 
Section 1.2.3 for the termination routines and the value they cause to be returned. Passed by 
immediate value. 

old-fmp 

The frame address of the error handler's establisher. Passed by immediate value, 
new-pc 

The address (lin-num) of the condition handler's first line. Passed by immediate value. 

Implicit Outputs 

The value of R9, which points to the temporary storage, and the values of RIO and R11, which 
point to the variables of the establisher. 

Notes 

BAS$INIT_ONERR leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. This routine calls the compiled code, and return to this routine's caller is 
made when the compiled code does a RESUME, ON ERROR GOTO 0, or ON ERROR GO BACK. 
See Section 1.9 for details. 

5.2 Remove Frames 

These routines remove frames for BASIC. Frames are used for main routines, external functions, 
external subroutines, internal functions (DEF), internal subroutines (GOSUB), and condition handlers. 
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BAS$END-DEF-R8 


5.2.1 DEF Statement 

BAS$END_DEF_R8 removes a frame for a BASIC DEF statement and deallocates its heap storage. The 
argument corresponds to BAS$INIT_DEF_R8 for validity checking. 

Format FNEND 

generates JSB BAS$END_DEF_R8 (arg-list.ra.v) 

Arguments 

arg-list 

The address of the descriptor for a list of information used to build the frame. Passed by immedi¬ 
ate value. 

Implicit Inputs 

The frame, as built by BAS$INIT_DEF_R8. 

Notes 

BAS$END_DEF_R8 deallocates the heap storage local to this DEF statement. 


BAS$END-R8 


5.2.2 Major Procedure 

BAS$END_R8 removes a frame for a BASIC major procedure and deallocates its heap storage. The 
argument corresponds to BAS$INIT_R8 for validity checking. This routine removes intervening 
GOSUB frames. 

Format BASIC 

generates JSB BAS$END_R8 (arg-list.ra.v) 

Arguments 

arg-list 

The address of the descriptor for the list containing the information used to build the frame. 
Passed by immediate value. 

Implicit Inputs 

The frame, as built by BAS$INIT_R8. 

Notes 

BAS$END_R8 deallocates the heap storage local to this major procedure. 
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BAS$END-GSB-R8 


5.2.3 Return from GOSUB 

BAS$END_GSB_R8 checks a BASIC RETURN statement to ensure that the return is made from a 
GOSUB. This procedure is necessary because GOSUB has no lexical scope. 

Format RETURN 

generates JSB BAS$END_GSB_R8 

Implicit Inputs 

The frame, as built by BAS$INIT_GSB_R8. 

Messages 

BAS$_RETWITGOS 

Return without GOSUB. 

5.3 Date and Time Functions 

These procedures support the date and time functions as defined in the VAX-11 BASIC Language 
Reference Manual. 

BAS$DATE-T 


5.3.1 DATE$ Function 

BAS$DATE_T performs the following DATE$ functions: 

DATE$(0%) returns the current date in the form dd-mmm-yy. 

DATE$(n%) returns the date corresponding to day number n, where n is the day of the year 
(1 to 365 or 366) plus the number of years since 00-JAN-1970 * 1000. 

Format ustr-vbl = DATE$(int-exp) 

generates CALL BAS$DATE_T (date-str.wt.dx, day-num.rl.v) 


Arguments 

date-str 

The date string (str-vbl). Passed by descriptor, 
day-num 

The desired day number (int-exp). A value of zero means you want the current system date. 
Passed by immediate value. 

Implicit Inputs 

The system date and time, if day-num is zero. 
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BAS$TIME-F 


5.3.2 TIME Function 

BAS$TIME_F performs a TIME function, as follows: 

TIME(0%) returns the current time of day in seconds since midnight. 

TIME(1%) returns the CPU time used by the current job in tenths of a second 

(100-millisecond units). 

TIME(2%) returns the connect time for the current job in minutes. 

TIME(3%) and TIME(4%) are not implemented on VAX/VMS. 

Any other value of the argument is undefined. 

Format num-vbl = TIME (num-exp) 

generates CALL ret-value.wf.v = BAS$TIME_F (type.rl.v) 

Arguments 

ret-value 

The time in the requested form. Passed by immediate value, 
type 

The type (num-exp) of time requested. Passed by immediate value. 

Implicit Inputs 

The system date and time, as well as other system timing statistics. 

BAS$TIME-T 

5.3.3 TIME$ Function 

BAS$TIME_T performs the following TIMES functions: 

TIME$(0%) returns the current time of day in the form hh:mm. 

TIME$(n%) returns the time corresponding to time number n, where n is the number of 
minutes before midnight. 

Format str-vbl = TIME$(int-exp) 

generates CALL BAS$TIME_T (time-str.wt.dx, time-num.rl.v) 

Arguments 

time-str 

The time string (str-vbl). Passed by descriptor, 
time-num 

The desired time number (int-exp). A value of zero indicates you want the current system time. 
Passed by immediate value. 

Implicit Inputs 

The system date and time, if time-num is zero. 
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BAS$RUN—INIT 


5.4 Initialize the User Environment 

BAS$RUN_INIT is used by the BASIC compiler's RUN command to initialize the user environment. 
All of the static storage must be set to its initial state, in case this is not the first RUN command. 

Format RUN program-name 

generates CALL BAS$RUN_INIT 

Notes 

Much of static storage is initialized by calling subroutines. If any of the initialization routines are not 
present, an error is signaled. I/O system problems can also be signaled. 

BAS$KILL 

5.5 Delete a File 

BAS$KILL implements the BASIC KILL statement, which deletes an unopened file. The $ERASE RMS 
macro performs this function. 

Format KILL (str-exp) 

generates CALL BAS$KILL (filename.rt.dx) 

Arguments 

filename 

The filename string (str-exp). Passed by descriptor. 

Notes 

BAS$KILL deletes the specified file and removes its directory entry. 

5.6 Random Number Support 

Two entry points support all BASIC random number functions. BAS$RANDOMIZE initializes the seed 
based on the time of day to prevent a sequence from repeating. BAS$RND_F_R1 generates a random 
number and calculates a new seed. 

BAS$RANDOMIZE 

5.6.1 Initialize Random Number Seed 

BAS$RANDOMIZE initializes the random number seed. It requests the current system time and adds 
the low 32 bits to the high 32 bits. The sum is a 32-bit random number seed. 

Format RANDOMIZE 

generates CALL BAS$RANDOMIZE () 

Implicit Outputs 

seed 

The sum of adding the low 32 bits to the high 32 bits of the current system time. 
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BAS$RND-F_R1 


5.6.2 Random Number Generator 

BAS$RND_F_R1 returns the next pseudorandom number. As a by-product, this routine automatically 
updates the seed. The resulting F_floating value is uniformly distributed between 0.0 and 1.0, includ¬ 
ing 0.0 but excluding 1.0. There are no restrictions on the seed, although it should be initialized to 
different values on separate runs. 

BAS$RND_F_R1 updates the seed using the following algorithm: 

seed = 69069. * seed + 1 (mod 2**32) 

It then converts the seed to floating-point form. 

This routine is a multiplicative congruential random number generator. It is fast, although prone to 
certain classes of nonrandom sequences. The nonrandom behavior typically arises in the case of 
triples of numbers generated by this method. 

Format num-vbl = RND 

generates JSB result.wf.v = BAS$RND_F_R1 () 

Arguments 

result 

An F_floating value ( num-vbl ) in R0 representing the pseudorandom number between 0.0 and 
1.0, including 0.0 but excluding 1.0. Passed by immediate value. 

Implicit Inputs 

seed 

The current seed. 

Implicit Outputs 

seed 

The updated seed. 

Notes 

Because the result is never 1.0, you can get a uniform random integer selector by multiplying the 
result by the number of cases. For example, the following BASIC statement will make a uniform 
choice among five situations: 

□N 1+INT(5#0*RND) 

The explicit INT before adding one prevents possible rounding during the normalization after the 
floating-point addition. 


5.7 Matrix Manipulation Procedures 

The matrix manipulation procedures are valid only on arrays of one or two subscripts. When these 
procedures execute, they use row and column zero to store intermediate calculations. Therefore, you 
should not depend on data in these elements if your program uses matrix procedures. 
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Matrix procedures let you: 

• Add one array to another array 

• Assign values to array elements 

• Copy one array to another array 

• Initialize an array to a constant 

• Initialize an array to the identity matrix 

• Invert an array 

• Multiply one array by another array 

• Multiply each element of an array by a scalar quantity 

• Redimension existing arrays 

• Subtract one array from another array 

• Retrieve the determinant of an array 

The arithmetic routines allow the user to mix data types. The routines will convert the input data types 
to a common data type before performing the desired operation. The supported data types are: 

• W — word integers 

• L - longword integers 

• F - F_floating values 

• D - D_floating values 

BAS$MAT-ADD 
5.7.1 Add Two Matrices 

BAS$MAT_ADD adds two source matrices and stores the sum in the destination matrix. The source 
matrices must have the same number of rows and columns. The upper and lower bounds must be the 
same for both dimensions. The destination matrix is redimensioned to have the same upper bounds as 
the input matrices. 

Format MAT out-array = inp-arrayl + inp-array2 

generates CALL BAS$MAT_ADD (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

Arguments 

srcl -mat 

The first source matrix ( inp-arrayl ). Passed by descriptor. 
src2-mat 

The second source matrix (inp-array2). Passed by descriptor, 
d st-mat 

The destination matrix (out-array). Passed by descriptor. 
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Messages 


BAS$K_ARGDONMAT 

Source matrices do not have the subscripts. 

BAS$K_ARRMUSSAM 

Source matrices do not have the same upper and lower bounds. 

BAS$K_DATTYPERR 

The data type in one of the matrix descriptors is unsupported. 

BAS$K_MATDIMERR 

Source matrices do not have the same number of dimensions. 

BAS$MAT_ASSIGN 


5.7.2 Assign One Matrix to Another Matrix 

BAS$MAT_ASSIGN copies the source matrix to the destination matrix. The destination matrix is 
redimensioned, if needed, to have the same dimensions as the source matrix. 

Format MAT out-array = inp-array 

generates CALL BAS$MAT_ASSIGN (src-mat.rx.da, dst-mat.wx.da) 

Arguments 

src-mat 

The source matrix ( inp-array ). Passed by descriptor, 
dst-mat 

The destination matrix ( out-array ). If needed, conversion is made from the source matrix data type 
to the destination matrix data type. Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

The source matrix is not a one- or two-subscripted array. 

BAS$K_DATTYPERR 

The data type in one of the descriptors is not supported. 

BAS$MAT-IDN 


5.7.3 Initialize the Matrix to the Identity Matrix 

BAS$MAT_IDN initializes the destination matrix to the identity matrix by setting all diagonal ele¬ 
ments to one and all other elements to zero. The destination matrix must be square. 

Format MAT out-array = IDN 

generates CALL BAS$MAT_IDN (dst-mat.wx.da) 

Arguments 

dst-mat 

The destination matrix ( out-array ). Passed by descriptor. 
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Messages 


BAS$K_ARGDONMAT 

Block 2 or Block 3 of the destination matrix descriptor is missing. 

BAS$K_DATTYPERR 

The data type in the destination matrix descriptor is not supported. 

BAS$K_MATDIMERR 

The matrix is not square. 

BAS$MAT_INIT 

5.7.4 Initialize Each Element of a Matrix to a Constant 

BAS$MAT_INIT initializes each element of the destination matrix to the specified constant. 

Format MAT out-array = CON or ZER 

generates CALL BAS$MAT_INIT (dst-mat.wx.da, constant.rl.v) 

Arguments 

dst-mat 

The destination matrix (out-array). Passed by descriptor, 
constant 

The constant value. All elements in the destination matrix are set to this value. Passed by immedi¬ 
ate value. 

Messages 

BAS$K_ARGDONMAT 

The destination matrix is not a one- or two-dimensional array. 

BAS$K_DATTYPERR 

The data type in the destination matrix descriptor is not supported. 

BAS$MAT-INV 

5.7.5 Invert a Matrix 

BAS$MAT_INV inverts a source matrix and puts the result in the destination matrix. The source 
matrix must be square. The destination matrix is redimensioned if needed. 

The inversion is done in place using the Gauss-Jordan method with complete pivoting. The source 
and destination matrices can be the same matrix. 

As a by-product, BAS$MAT_INV calculates the determinant of the source matrix in double-precision. 
The determinant can be retrieved by calling BAS$DET_x (see Section 5.7.12). 

Format MAT out-array = INV (inp-array) 

generates CALL BAS$MAT_INV (src-mat.rx.da, dst-mat.wx.da) 
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Arguments 


src-mat 

The source matrix ( inp-array ). Passed by descriptor, 
d st-mat 

The destination matrix (out-array). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of the source matrix descriptor is missing. 

BAS$K_ARRMUSSQU 

The source matrix must be square. 

BAS$ K_CAN IN VM AT 
The matrix is singular. 

BAS$K_DATTYPERR 

The data type in the source matrix descriptor is not supported. 

BAS$K_MATDIMERR 

The source matrix is not two-dimensional. 

BAS$MAT_MUL 


5.7.6 Multiply a Matrix by Another Matrix 

BAS$MAT_MUL multiplies two source matrices and stores the product in a destination matrix. The 
number of columns in the first source matrix must be equal to the number of rows in the second 
source matrix. All three matrices must be two-dimensional. 

Note 

Overlap of the source and destination matrices will produce unpredictable results. 

Format MAT out-array = inp-arrayl * inp-array2 

generates CALL BAS$MAT_MUL (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

Arguments 

srcl -mat 

The first source matrix (inp-arrayl). Passed by descriptor. 
src2-mat 

The second source matrix (inp-array2). Passed by descriptor, 
d st- mat 

The destination matrix (out-array). Passed by descriptor. 
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Messages 


BAS$K_ARGDONMAT 

Block 2 or Block 3 is missing for one of the descriptors. 

BAS$K_ARRMUSSAM 

The upper and lower bounds for columns of the first source matrix do not equal the upper and 
lower bounds for rows of the second source matrix. 

BAS$K_DATTYPERR 

The data type in one of the descriptors is not supported. 

BAS$K_ILLOPE 

The destination matrix is the same as one of the source matrices. 

BAS$K_MATDIMERR 

One of the matrices is not two-dimensional. 

BAS$MAT-NULL 

5.7.7 Initialize a String Matrix to Null Strings 

BAS$MAT_NULL initializes each element of a string matrix to the null string. 

Format MAT out-array = NUL$ 

generates CALL BAS$MAT_NULL (dst-mat.wx.da) 

Arguments 

dst-mat 

The destination matrix (out-array). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of the destination matrix descriptor is missing. 

BAS$MAT-REDIM 

5.7.8 Redimension a Matrix 

BAS$MAT_REDIM redimensions a one- or two-dimensional matrix to the specified size. An error is 
signaled if the specified dimensions require more space than is currently allocated for the matrix. 

Format MAT out-array = mat-keyword (int-expll [,int-exp2]) 

where mat-keyword is ZER, CON, 1DN, or NUL$. 

generates CALL BAS$MAT_REDIM (dst-mat.wx.da, rows.rl.v [,cols.rl.v]) 
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Arguments 


d st-mat 

The destination matrix (out-array). Passed by descriptor, 
rows 

The number of rows in the destination matrix (int-expl). Passed by immediate value, 
cols 

The number of columns in the destination matrix (int-exp2). Passed by immediate value. 

Messages 

BAS$K_CANCHAARR 

The redimension flag was not set in the matrix descriptor. 

BAS$K_MATDIMERR 

The number of input dimensions does not match the number of dimensions in the matrix. 
BAS$K_REDARR 

The space allocated for the original matrix is less than the space needed for the redimensioned 
matrix. 

BAS$K_SUBOUTRAN 

One of the new dimensions was negative or zero. 


BAS$MAT-SCA_MUL 


5.7.9 Multiply Each Element of a Matrix by a Scalar Quantity 

BAS$MAT_SCA_MUL multiplies each element of the input matrix by the specified scalar quantity 
and stores the products in the output matrix. The output matrix must have the same dimensions as the 
input matrix. 

Format MAT out-array = num-exp * inp-array 

generates CALL BAS$MAT_SCA_MUL (scalar.rz.r, scalar-dtype.rlu.v, src-mat.rx.da, 
dst-mat.wx.da) 

Arguments 

scalar 

The scalar multiplier (num-exp). Passed by reference, 
scalar-dtype 

The VAX—11 standard data type code for scalar. Passed by immediate value, 
src-mat 

The source matrix (inp-array). Passed by descriptor, 
dst-mat 

The destination matrix (out-array). Passed by descriptor. 
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Messages 


BAS$K_ARGDONMAT 

Block 2 or Block 3 of one of the descriptors is missing. 

BAS$K_DATTYPERR 

The data type in one of the descriptors is unsupported. 

BAS$MAT_SUB 

5.7.10 Subtract a Matrix from Another Matrix 

BAS$MAT_SUB subtracts the second source matrix from the first source matrix and stores the differ¬ 
ence in the destination matrix. The two source matrices must have the same dimensions. 

Format MAT out-array = inp-arrayl - inp-array2: 

generates CALL BAS$MAT_SUB (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

Arguments 

srcl-mat 

The first source matrix (inp-arrayl). Passed by descriptor. 
src2-mat 

The second source matrix ( inp-array2 ). Passed by descriptor, 
d st- mat 

The destination matrix (out-array). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of one of the descriptors is missing. 

BAS$K_ARRMUSSAM 

The source matrices do not have the same upper and lower bounds. 

BAS$K_DATTYPERR 

One of the data types is unsupported. 

BAS$K_MATDIMERR 

The source matrices do not have the same number of dimensions. 

BAS$MAT-TRN 

5.7.11 Transpose One Matrix into Another Matrix 

BAS$MAT_TRN transposes the source matrix into the destination matrix. The elements in the first row 
of the source matrix become the elements of the first column of the destination matrix. 

Note 

Overlap of the source and destination matrices will produce unpredictable results. 

Format MAT out-array = TRN (inp-array) 

generates CALL BAS$MAT_TRN (src-mat.rx.da, dst-mat.wx.da) 
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Arguments 

src-mat 

The source matrix (inp-array). Passed by descriptor, 
d st-mat 

The destination matrix ( out-array). Passed by descriptor. 

Messages 

BAS$K_ARGDONMAT 

Block 2 or Block 3 of one of the descriptors is missing. 

BAS$K_DATTYPERR 

One of the data types is unsupported. 

BAS$K_ILLOPE 

The source matrix descriptor is the same as the destination matrix descriptor. 
BAS$K_MATDIMERR 

The source matrix has only one dimension. 

BAS$DET-x 


5.7.12 Retrieve the Determinant 

The determinant of the last matrix inverted by BAS$MAT_INV is stored in the OWN storage as a 
double-precision value. The BASIC initializer uses the store entry point to initialize the DET to zero; 
the matrix inversion routines use it to store the DET. 

BAS$DET_D returns the D_floating value stored in DET. 

BAS$DET_F converts the D_floating value in DET to F_floating and returns the rounded F_floating 
value. 

Format num-vbl = DET 

generates CALL result.wx.v = BAS$DET_x 

Arguments 

result 

The D_floating or F_floating value ( num-vbl ) determinant of the last inverted matrix. Passed by 
immediate value. 

5.8 Scaling and Descaling 

This section describes the compiled code support routines for scaling and descaling D_floating 
values. 


BAS$DSCALE-D_R1 


5.8.1 Descale a D-floating Value 

BAS$DSCALE_D_R1 descales a D_floating value by dividing by the scale factor. If you are not in a 
BASIC frame, the scale factor is invalid and no operation is performed. 
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Format 


BASIC 


generates CALL result.wd.v = BAS$DSCALE_D_R1 (value.rd.v) 

Arguments 

result 

The descaled, double-precision number. Passed by immediate value, 
value 

A D_floating number to be descaled. Passed by immediate value. 

Implicit Inputs 

The scale factor in the major frame. 

Notes 

BAS$DSCALE_D_R1 can get arithmetic faults. 


BAS$SCALE-D_R1 

5.8.2 Scale a D-floating Value 

BAS$SCALE_D_R1 scales a D_floating value by multiplying it by the scale factor and converting the 
result to an integer. If you are not in a BASIC frame, the scale factor is invalid and no operation is 
performed. 

Format BASIC 

generates CALL result.wd.v = BAS$SCALE_D_R1 (value.rd.v) 

Arguments 

result 

The scaled, double-precision number. Passed by immediate value, 
value 

A D_floating number to be scaled. Passed by immediate value. 

Implicit Inputs 

The scale factor, in the major frame. 

Notes 

BAS$SCALE_D_R1 can get arithmetic faults. 
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BASSXLATE 


5.9 XLATE Function 

The BASIC XLATE function is implemented by the BAS$XLATE procedure. For AST reentrancy, the 
routine creates a local dynamic string descriptor and calls STRSCOPY to copy the source string to the 
local area (instead of using any mechanism to prevent AST level routines from writing to the source 
string). BAS$XLATE also creates a local dynamic string descriptor and calls STR$GET1 to create a 
string to receive the translated characters. Then, BAS$XLATE uses both local strings to do the transla¬ 
tion. The routine uses MOVTUC to translate until the translated character is the NULL character. The 
NULL is not written to the destination string. After the translating is finished, BAS$XLATE calls 
STRSCOPY to copy the edited string to the destination string. 

Format str-vbl = XLATE(str-exp1, str-exp2) 

generates CALL BASSXLATE (out-str.wt.dx, in-str.rt.dx, table.rt.dx) 

Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
in-str 

The source string ( str-expl ). Passed by descriptor, 
table 

The translation table ( str-exp2 ). Passed by descriptor. 

Notes 

BASSXLATE calls STRSCOPY, STR$GET1, and STR$FREE1 and can signal any of their error messages. 
BASSXLATE allocates dynamic string space in temporary storage. 

This routine also calls LIB$GET_VM and LIB$FREE_VM, so it can cause their errors to be 
signaled. 
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Appendix A 

Compatibility Procedures 


These procedures are provided only for compatibility with RSTS/E and are not recommended for use 
in new development. 

BAS$CVT-x_y 


A.1 CVT Functions 


The procedures in this section implement the RSTS—compatible CVT functions: CVT$%, CVT%$, 
CVT$F, CVTF$, and the double-precision versions of CVT$F and CVTF$. 

BAS$CVT_D_S changes a D_floating value to an eight-character string, permuting the bytes in the 
process. 

BAS$CVT_F_S changes an F_floating value to a four-character string, permuting the bytes in the 
process. 

BAS$CVT_W_S changes a word to a two-character string, permuting the bytes in the process. 

BAS$CVT_S_D changes an eight-character string to a D_floating value, permuting the bytes in the 
process. 

BAS$CVT_S_F changes a four-character string to an F_floating value, permuting the bytes in the 
process. 

BAS$CVT_S_W changes a two-character string to a 16-bit integer value, permuting the bytes in the 
process. 

Format str-vbl = CVTF$ (num-exp) 

generates CALL BAS$CVT_D_S (out-str.wt.d, value.rd.v) 

Format str-vbl = CVTF$ (num-exp) 

generates CALL BAS$CVT_F_S (out-str.wt.d, value.rf.v) 


Format str-vbl = CVT%$ (int-exp) 

generates CALL BAS$CVT_W_S (out-str.wt.d, value.rw.v) 
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Format 

num-vbl = CVT$F (str-exp) 

generates 

CALL ret-value.wd.v = BAS$CVT_S_D (in-str.rt.d) 

Format 

num-vbl = CVT$F (str-exp) 

generates 

CALL ret-value.wf.v = BAS$CVT_S_F (in-str.rt.d) 

Format 

int-vbl = CVT$% (str-exp) 

generates 

CALL ret-value.ww.v = BAS$CVT_S-W (in-str.rt.d) 


Arguments 

out-str 

The destination string (str-vbl). Passed by descriptor, 
value 

The number (/nt-exp) to be converted to a two-character string, the single-precision floating-point 
number to be converted to a four-character string, or the double-precision floating-point number 
to be converted to an eight-character string. Passed by immediate value. 

ret-value 

The result (int-vbl or num-vbl) of the conversion. Passed by immediate value, 
in-str 

The source string (str-exp). Passed by descriptor. 

BAS$FIELD-xxxxx 
A.2 FIELD Functions 

This section contains the RSTS—compatible FIELD functions. A FIELD variable is partially interpreted. 
These routines declare such a variable, copy data to and from it, and purge it when its block is exited. 

BAS$FIELD_CLEAR removes a possible FIELD variable from the FIELD run-time symbol table. This 
procedure is called prior to any BASIC statement that causes a field variable to lose its FIELD attribute. 

BAS$FIELD_CLOSE accounts for closing a file. It removes all FIELD variables on this channel from 
the FIELD run-time symbol table. 

BAS$FIELD_COPY copies two string variables. One or the other can be FIELD variables but not both. 

BAS$FIELD_COP_R is an alternate entry point for BAS$FIELD_COPY. The compiler uses it to avoid 
building a descriptor for a string constant. This code builds the descriptor and calls 
BAS$ FIELD_COPY. 

BAS$FIELD_OPEN opens a file. If the record length is shorter than before, some variables may not be 
declared. 

BAS$FIELD_PURGE purges FIELD variables. This routine is called at the end of a block with declara¬ 
tions that might have been FIELD variables. It scans the symbol table and purges each entry marked as 
declared in the block. 

BAS$FIELD_SET executes a FIELD statement. The compiler pushes all variables in the FIELD state¬ 
ment from right to left and then calls BAS$FIELD_SET. This procedure calls BAS$FIELD_VAR for each 
variable. 
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BAS$FIELD_VAR declares a FIELD variable. It is called only by BAS$FIELD_SET. A FIELD variable 
refers to the buffer of an opened logical unit. To avoid leaving obsolete addresses in a user's program, 
each reference to a FIELD variable is interpreted. BAS$FIELD_VAR puts the variable in the interpreter 
symbol table so it can be found by BAS$FIELD_COPY. 

Format LET str-vbl = str-exp ! if str-vbl is a FIELD variable 

generates CALL BAS$FIELD_CLEAR (fld-var.at.d) 

then the usual code for the LET 


Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 

Format 

generates 

Arguments 


CALL BAS$FIELD-CLOSE (unit.rlu.v) 

LSET (or RSET) str-vbl = str-exp 

CALL BAS$FIELD—COPY (stmt-type.rlu.v, out-var.wt.dx, in-var.rt.dx) 
LSET (or RSET) str-vbl = str-lit 

CALL BAS$FIELD_COP—R (stmt-type.rlu.v, out-var.wt.dx, 
in-var-len.rl.v, in-var-adr.rt.r) 

OPEN ! if any FIELD statements are present 

CALL BAS$FIELD_OPEN (unit.rlu.v) 

END ! if any FIELD statements are present 

CALL BAS$FIELD_PURGE (decl.rl.v) 

then the usual code for the END statement 

FIELD #chnl-exp, num-expl by var-expl [, ... ] 

CALL BAS$FIELD_SET (unit.rlu.v, decl.rl.v, in-varl-len.rl.v, 
in-varl-adr.rt.r [, ... ]) 


CALL BAS$FIELD_VAR (unit.rlu.v, offset.rl.v, in-var-len.rl.v, decl.rl.v, 
in-var-adr.rt.d, rec-buf.ra.v) 


fld-var 

The FIELD variable descriptor. It is used to scan the symbol table. Passed by descriptor. 

unit 

The logical unit (chnl-exp). Passed by immediate value, 
stmt-type 

The statement type. It is zero for LSET or one for RSET. Passed by immediate value, 
out-var 

The destination variable (str-vbl). It can be a FIELD variable. Passed by descriptor. 


in-var 


The source variable (str-exp). It can be a FIELD variable. Passed by descriptor. 
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in-var-len 

The number of bytes in the source variable ( str-lit ). Passed by immediate value, 
in-var-adr 

The address of the source variable (str-lit). Passed by reference, 
decl 

A pointer to the symbol table. If the variable is in the scope of a major procedure, the major frame 
(R11) is pointed to. If the variable is in the scope of a DEF, the minor frame (RIO) is pointed to. 
Passed by immediate value. 

offset 

The offset into the logical unit's buffer of the start of the area referenced by the variable. Passed by 
immediate value. 

rec-buf 

The address of the file's record buffer. Passed by immediate value. 

Implicit Inputs 

The queue of FIELD variables in the interpreter symbol table. 

Implicit Outputs 

The queue of FIELD variables in the interpreter symbol table. 

Messages 

BAS$_FIEOVEBUF 

FIELD overflows buffer. 

BAS$_ILLFIEVAR 

Illegal FIELD variable. 

BAS$_ILLILLACC 

Illegal or illogical access. 

BAS$_ILLIO_CHA 

Illegal I/O channel. 

BAS$_IO_CHANOT 

I/O channel not opened. 

BAS$_MAXMEMEXC 

Maximum memory exceeded. 

BAS$_PROLOSSOR 
Program lost, sorry. 

BAS$SYS 

A.3 SYS Function 

BAS$SYS executes an RSTS/E compatible SYS() function. The function performed is specified by the 
input parameter ( in-str ). 

Format str-vbl = SYS (int-exp) 

generates CALL BAS$SYS (out-str.wz.dx, in-str.rz.dx) 
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Arguments 

out-str 

The result string (str-vbl). Passed by descriptor. 

in-str 

The code string (/nt-exp). Passed by descriptor. These functions have been implemented: 

code 0 = Cancel CTRL/O 
code 2 = Enable echoing 
code 3 = Disable echoing 
code 5 = Exit with no prompt 
code 6 = Call File Processor 
code 7 = Get core common 
code 8 = Put core common 
code 9 = Exit and clear program 
code 11 = Cancel type-ahead 

Under code 6, these File Processor calls are supported: 

code —25 = Read/write file attributes 
code —23 = Terminate file-string scan 
code —13 = Set priority 
code —10 = File name string scan 
code -7 = CTRL/C trap enable 
code 9 = Return error message 
code 10 = Assign a device 
code 11 = Deassign a device 
code 12 = Deassign all devices 
code 18 = Message send/receive 
code 22 = Message send/receive (cannot get 
job number, privileges, 
or receive selection, or 
use DECnet) 

code 28 = Set default 

Messages 

BAS$_ILLBYTCOU 

Illegal byte count for I/O. 

BAS$_ILLIO—CHA 
Illegal I/O channel. 

BAS$_ILLSYSUSA 

Illegal SYS$() usage. 

BAS$_IO_CHANOT 

I/O channel not open. 

BAS$_MISSPEFEA 

Missing special feature. 

BAS$_NO_ROOUSE 

No room for user on device. 
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A.4 DEF* Statement 


The DEF* statement lets you write your own function definitions using the BASIC-PLUS argument 
passing method. 

Any attempt to transfer control into a multiline DEF* can cause a run-time memory management 
error. Transfers out of a multiline DEF* except through an FNEND or FNEXIT statement cause extra 
frames to be left on the stack. 

If a multiline DEF* in a subprogram transfers control to the SUBEND statement without executing the 
FNEND statement, BASIC signals the error 'Illegal return from DEF*." 

A.4.1 DEF* Functions 

The following steps are performed in calling DEF* functions: 

1. The actual parameters (if any) are evaluated from left to right and are pushed on the stack from 
left to right (except for the descriptor for a string result, which is pushed last). The argument 
passing mechanisms are call by value for numeric scalars and call by descriptor for string scalars. 
Note that BASIC does not permit arrays to be passed to DEF* functions. 

2. A CALLS instruction invokes the function. 

3. The initialization routine BAS$INIT_DFS_R8 is called to set up the frame control data and the 
local storage. This includes allocating automatic storage. 

4. The values of the formal parameter variables occupying the same locations as the variables with 
the same name in the major procedure containing the DEF* are copied into temporaries in the 
DEF* functions automatic storage area. 

5. The actual parameter values are moved into the variables in the major procedure with the same 
name as the formal parameter variables. 

The FNEND statement initiates the return mechanism for DEF* functions. It compiles into the follow¬ 
ing sequence: 

1. An MOVL instruction to load RO with the same value given to BAS$INIT_DFS_R8 

2. A call to BAS$END_DFS_R8 to free the dynamic storage associated with this frame 

3. The values of the formal parameter variables are restored in the major procedure's frame 

4. For functions returning numeric values, a move of the function value into RO or RO and R1 

5. An RET instruction 

BAS$INIT-DFS—R8 

A.4.2 BAS$INIT—DFS—R8 

BAS$INIT_DFS_R8 builds a frame for a BASIC DEF* statement. The frame is allocated on the stack, 
and RIO and R9 are set to point to it. The argument list describes the allocation method. 

Format DEF* FNvbll [([data-type]vbl2 [,[data-type]vbl3] [, ... ])] = exp 

generates JSB BAS$INIT_DFS-R8 (arg-list.rx.v, data-reloc.ra.v) 
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Arguments 


arg-list (RO) 

The address of the list of information needed to build the frame. This value is passed in RO. Passed 
by immediate value. 

data-reloc (R1) 

The address of the major procedure's contribution to the data PSECT. This allows the argument list 
to be position independent. This value is passed in R1. Passed by immediate value. 

Implicit Outputs 

The values of RIO and R9, which point to the automatic and the temporary storage, respectively. 

Notes 

BAS$INIT_DFS_R8 leaves certain elements (see Sections 1.5 and 1.6) on the stack for use by the 
compiled BASIC code. BAS$END_DFS_R8 removes them. 


BAS$END-DFS-R8 


A.4.3 BAS$END_DFS_R8 

BAS$END_DFS_R8 removes a frame for a BASIC DEF* statement and deallocates all heap storage. 
The argument corresponds to BAS$INIT_DFS_R8 for validity checking. 

Format FNEND 

generates JSB BAS$END_DFS_R8 (arg-list.ra.v) 

Arguments 

arg-list 

The address of the descriptor for a list of information used to build the frame. Passed by immedi¬ 
ate value. 

Implicit Inputs 

The frame, as built by BAS$INIT_DFS_R8. 

Notes 

BAS$END_DFS_R8 deallocates the heap storage and virtual arrays local to this DEF* statement. 
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April 1982 


This division describes the Run-Time Library procedures that support 
VAX-11 COBOL, Version 2.0. The material in this division is not 
introductory. 


VAX-11 

COBOL-Specific 
Support Procedures 
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Preface 


Objectives 

This division describes the Run-Time Library procedures that support VAX-11 COBOL, Version 2.0. 

It also contains information about calling and writing user programs that access these procedures. 

Document Structure 

This division contains five chapters and one appendix: 

Chapter 1 Introduces the COB$ facility of the Run-Time Library. It also describes how to code 
COBOL subroutines and calls to Run-Time Library procedures from a COBOL 
program. 

Chapter 2 Describes the Run-Time Library routines that support file processing, specifically the 
LINAGE clause. 

Chapter 3 Describes the Run-Time Library routines that support the COBOL ACCEPT and 
DISPLAY statements. 

Chapter 4 Discusses the Run-Time Library routines that perform data type conversion and arith¬ 
metic operations for VAX—11 COBOL. 

Chapter 5 Lists the Run-Time Library procedures that support other segments of COBOL com¬ 
piled code, such as the CALL statement, the CANCEL statement, error handling, date/ 
time utilities, and the STOP statement. 

Appendix A Includes the translation tables used in performing conversions between ASCII and 
EBCDIC code and between packed decimal and trailing numeric data types. It also 
contains the table that supports the SPANC instruction, which COBOL uses to perform 
class tests, and the de-edit table, which COBOL uses to translate nondigits in a 
numeric edited source to zeros in a numeric or numeric edited destination. 




Summary of Technical Changes 

1. The following procedures have been added to the COB$ facility of the Run-Time Library and are 
documented in this manual: 

• COBSIOEXCEPTION 

• COBSDBEXCEPTION 

• COBSACCEPT 

See Chapters 1, 3, and 5. 

2. The De-edit Table has been added. See Appendix A. 

3. The final value in the LIB$AB_ASC_EBC and LIB$AB_EBC_ASC translation tables has been 
changed. See Appendix A. 

4. Parameters have been changed in the following procedures: 

• COB$CALL 

• COBSCANCEL 

• COBSERROR 
See Chapter 5. 




Chapter 1 

Using VAX-11 COBOL-Specific Support Procedures 


The VAX-11 Run-Time Library contains language-support procedures for the VAX-11 native mode 
languages. Compiled code calls these procedures to perform language operations. For example, 
when you include the DISPLAY statement in a COBOL program, VAX—11 COBOL code calls the 
Run-Time Library procedure COB$DISPLAY when the program is run. The COB$DISPLAY procedure 
actually performs the operation. In this sense, COB$DISPLAY supports the DISPLAY statement. Like 
all Run-Time Library procedures, the COB$ procedures can also be called explicitly from any high- 
level language program. This division describes the VAX-11 Run-Time Library procedures that sup¬ 
port COBOL compiled code. 

For information on calling library procedures, see the VAX-11 COBOL User's Guide. Your calling 
sequence should conform to the VAX-11 Procedure Calling and Condition Flandling Standard 
(Appendix C in the VAX—11 Run-Time Library Reference Manual). 

Code generated by the VAX-11 COBOL compiler may invoke COB$ Run-Time Library procedures to 
perform: 

• File processing operations 

• Auxiliary I/O statements 

• Data type conversion and arithmetic operations 

• Statements in COBOL compiled code 

Section 1.1 briefly describes the procedures that perform these support functions. Section 1.2 tells 
you how to write a program that calls a COBOL subprogram. This is the most efficient way to use the 
features of the COBOL support procedures from another language. Section 1.3 describes the signaling 
of errors from VAX-11 COBOL library procedures. 
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Chapters 2 through 5 describe the support procedures in detail. Each entry contains the following 
information: 

• A functional description 

• A format showing the calling sequence for the procedure 

• The procedure name (the entry point) 

• A list of parameters 

• A list of arguments and their definitions 

• A list of possible error messages 

• A list of implicit inputs 

Appendix A consists of the tables used by VAX—11 COBOL. It includes translation tables for ASCII 
and EBCDIC characters, and for packed and trailing numeric data types, as well as the class test table. 

1.1 Summary of the COBOL Support Procedures 

COBOL compiled code invokes Run-Time Library procedures to perform several types of operations: 

• Processing files when a LINAGE clause is specified 

• Performing terminal input and output 

• Converting data types 

• Performing miscellaneous compiled code support 

The following sections summarize the operation of the Run-Time Library COB$ procedures. Chapters 
2 through 5 describe them in detail. 

1.1.1 File Processing 

VAX-11 COBOL compiled code processes files by calling the VAX-11 Record Management Services 
(RMS) directly. COBOL calls the Run-Time Library only when there is a LINAGE clause in the 
Procedure Division. Then, COBOL compiled code calls COB$LINAGE, COB$INIT_LINAGE, and 
COB$TERM_LINAGE, which check the validity of the linage parameters, update the linage counter, 
and close the final page of output. Chapter 2 describes these procedures in more detail. 

The procedure COB$IOEXCEPTION is also involved in file processing. In addition to signaling 
l/O-related errors, COB$IOEXCEPTION updates file status variables and maintains information such 
as whether a file is open or an end-of-file has been detected. Section 5.4.3 discusses the handling of 
I /O exceptions. 

1.1.2 Auxiliary I/O Statements 

The VAX-11 COBOL ACCEPT and DISPLAY statements call COB$ACCEPT and COB$DISPLAY to get 
and put data from a device. COB$ACCEPT reads a record from an input device and returns the string 
that replaces the data item that you specify in the statement. COB$DISPLAY displays a string or set 
of strings on the specified output device and resets the device to the next line, while 
COB$DISPLAY_NO_ADV displays the string without resetting the device. Chapter 3 discusses these 
routines. 


COB 2 Using COBOL-Specific Support Procedures 



1.1.3 Data Type Conversion and Arithmetic Operations 

The Run-Time Library provides routines for converting one data type to another. These routines are 
called when no hardware instruction exists to perform a required conversion. A MOVE statement 
generates these conversions when the data type of the destination data item differs from that of the 
source data item. Conversions are also generated internally during the execution of certain arithmetic 
operations, especially those that use COBOL intermediate data type arithmetic. Section 4.1 describes 
these conversion procedures. 

In addition, the Run-Time Library contains routines to perform arithmetic operations on quadwords 
and on numbers stored as COBOL intermediate temporary data type. Chapter 4.2 discusses these 
arithmetic procedures. 

1.1.4 Compiled-Code Support 

Chapter 5 describes the Run-Time Library procedures that perform these functions when called by 
compiled COBOL code: 

• Calling a subprogram. COB$CALL executes the CALL identifier statement. 

• Canceling a subprogram. COB$CANCEL supports the CANCEL identifier statement by closing the 
files opened by the called routine and restoring the virtual address space to its original condition. 

• Obtaining the date, day, and time. One form of the COBOL ACCEPT statement returns the date, 
day of the year, day of the week, or time of day. When you use this statement, compiled code calls 
Run-Time Library procedures to perform these operations. 

• Error handling. Four Run-Time Library procedures support error handling: 

- COB$ERROR signals compiler-detected errors. 

- COB$HANDLER is the default COBOL condition handler. 

- COB$IOEXCEPTION signals I/O errors and invokes USE procedures. 

- COB$DBEXCEPTION signals errors that occur when accessing a data base. 

Section 5.4 describes the interaction of the VAX-11 COBOL error handling facility and Run-Time 
Library procedures. 

• Setting switches. The SET switch-name statement results in a call to COB$SET_SWITCH. This 
procedure sets or clears external switches. COB$SWITCH reads a switch and returns a value that 
indicates whether the switch is set or cleared. 

• Interrupting the image. COB$PAUSE executes the STOP disp statement, which displays a string on 
the system output device and puts the user back at command level. 

1.2 Writing a COBOL Subprogram to Be Called from Another 
Language 

You can call Run-Time Library procedures, including the COB$ procedures, with an explicit call from 
any VAX-11 native mode language. However, if you wish to write a program in another language 
that uses VAX-11 COBOL support procedures, it is often easier to write a COBOL subprogram and 
call it from your main program. The COBOL program automatically generates the required calls to 
the Run-Time Library. 
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The VAX-1 1 Cuide to Creating Modular Procedures contains information on how to write a callable 
COBOL subprogram. Your subprogram should conform to the VAX-11 Modular Programming 
Standard. When coding your subprogram, consider: 

1. Parameter passing mechanisms. You can pass parameters to a COBOL subprogram only by 
reference. 

2. Data types. No data type conversion takes place when arguments are translated to parameters. 
The length of the argument should thus equal the length of the corresponding parameter. The 
data type of a parameter must be supported by both the language of the calling procedure and the 
language of the called procedure. For information on the data types supported by each language, 
see the tables in the Generic Division, Chapter 2. 

3. Return values. The subprogram's return values must be: 

a. COMPUTATIONAL 

b. COMPUTATIONAL—1 

c. COMPUTATIONAL—2 data items 

4. Condition handlers. The code generated by a VAX-11 COBOL program establishes a default 
COBOL-specific condition handler in the stack frame of each COBOL program. You can also 
establish a condition handler for I/O errors by declaring a USE procedure in the Procedure 
Division Declaratives area. See the VAX-11 COBOL Language Reference Manual. 

Note 

COBOL provides its own condition handling capability. Do not use the Run-Time 
Library procedure LIB$ESTABLISH to establish a condition handler in a COBOL stack 
frame. 

In the following example, a PL/I program calls a COBOL subprogram: 


PL/I calling program: 

MAIN: PROCEDURE? 

DCL COMPUTE-NETPAY ENTRY 
(01 * 

02 FIXED DECIMAL(G *2) t 
02 FIXED DECIMAL(6 *2) * 
02 FIXED DECIMALS *2) ) 5 


DCL 

01 PAYROLL-RECORD ♦ 

02 GROSS-PAY FIXED DEC IMAL(S > 2) * 

02 TOTAL-DEDUCTIONS FIXED DEC IMAL(G #2 ) » 

02 NET-PAY FIXED DEC IMAL(G»2 ) 5 

GROSS-PAY = G45♦79 ; 

TOTAL-DEDUCTIONS = 175*925 

CALL COMPUTE-NETPAY(PAYROLL-RECORD)5 

PUT SKIP LI ST( 'NET PAY IS ' » NET-PAY)? 

END main; 
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COBOL Subprogram: 


IDENTIFICATION DIVISION. 

PROGRAM-ID♦ COMPUTE-NETPAY . 

DATA DIVISION. 

WORKING-STORAGE SECTION. 

01 EDITED-NET-PAY PIC $$,$$9.99. 

LINKAGE SECTION. 

01 PAYROLL-RECORD. 


02 

GROSS-PAY 

PIC 

S 9 ( 4 ) V 9 9 

USAGE 

IS 

COMP-3 

02 

TOTAL-DEDUCTIONS 

PIC 

S 9 ( 4 ) V 9 9 

USAGE 

IS 

COMP-3 

02 

NET-PAY 

PIC 

S9(4 ) V99 

USAGE 

IS 

COMP-3 


PROCEDURE DIVISION USING PAYROLL-RECORD. 
GET-NETPAY. 

'SUBTRACT TOTAL-DEDUCTIONS FROM GROSS-PAY 
GIVING NET-PAY. 

MOVE NET-PAY TO EDITED-NET-PAY. 

DISPLAY "NET PAY IS " EDITED-NET-PAY. 
EXIT PROGRAM. 


A COBOL subprogram can receive parameters only by reference. Because the default passing mecha¬ 
nism for PL/I is by reference, the declaration of the variable needs to specify only the data type. In 
this case, PL/I FIXED DECIMAL, with a precision of six decimal digits and scale of two fractional 
digits, is stored as VAX-11 packed decimal data type (see the Generic Division, Table 1-12). The 
precision and scale of the data items in PL/I are represented by the PICTURE clause in the COBOL 
subprogram, while the USAGE IS COMP-3 clause specifies packed decimal (see the Generic Divi¬ 
sion, Table 1-6). Thus the PL/I program calls COMPUTE_NETPAY, passing the parameter 

PAYROLI_RECORD by reference. PAYROLI_RECORD is compatible with the PAYROLL-RECORD 

defined in the subprogram. The output from this program is as follows: 

NET PAY IS $4G9♦87 

NET PAY IS 4G9.87 


The EXIT PROGRAM statement terminates the subprogram. Control returns to the next executable 
statement after the CALL statement in the calling program. 
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Chapter 2 

File Processing Support 


This chapter describes the routines that support the LINAGE clause. The LINAGE clause provides a 
method for formatting print files in VAX-11 COBOL. When you include a LINAGE clause in your 
program's File Description, COBOL creates a file with PRN record attributes. This means that the 
records in the file are variable length, with a fixed-length control area attached to each record. The 
control area contains the print file information, including the carriage control. (See the VAX—7 7 
Record Management Services Reference Manual.) The general format of the VAX—11 COBOL 
LINAGE clause is as follows: 

LINAGE IS {page-lines} LINES [WITH FOOTING AT footing-line] 

[LINES AT TOP top-lines] [LINES AT BOTTOM bottom-lines] 

2.1 The LINAGE Context Block 

The parameters established in the LINAGE clause are placed in the context block , which is located at 
a negative offset to the Record Access Block (RAB). The compiler uses these parameters as implicit 
inputs to the Run-Time Library routines. 

The context block contains the following fields: 

COB$V_CTX_OPENL 

This bit is set if the LINAGE file has been opened but not yet written to. The setting of this bit 
ensures that TOP lines are positioned on the first logical page. 

COB$l_CTX—LINAG 

The page-lines value. This value specifies the size of the page body, that is, the number of lines 
that can be written on the logical page. 

COB$l_CTX—FOOTI 

The footing-line value. Specifies the line number within the page body at which the footing area 
begins. The footing area is the area at the end of the page body where the end-of-page condition 
is true, but printing and spacing are still allowed. 
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COB$l_CTX—TOP 

The top-lines value. Specifies the number of lines in the top margin, the area in which no print 
occurs. This area precedes the page body on the logical page. 


COB$l_CTX—BOTTO 

The bottom-lines value. This longword specifies the number of lines in the bottom margin. 


COB$l_CTX—COUNT 

The COBOL special register LINAGE—COUNTER. The linage counter specifies the line number 
where the device is positioned within the current page body. 


RAB$I_RHB 

The address of the two-byte fixed-length control area at the beginning of each record. This area 
contains the print file information. The first byte dictates carriage control to be performed before 
printing the record; the second byte indicates the carriage control to be performed after the record 
is printed. Either of these control bytes may contain one of the following: 


• An integer in the range 0 through 127, indicating the number of lines to advance before or after 
printing the record 

• A hex 8C, indicating ADVANCING PAGE before or after printing the record 


• A hex 8D, indicating no vertical carriage control before or after printing the record 

The other control byte contains a hex 8D. A hex 8D is used to indicate the absence of vertical 
movement. This ensures proper overprinting in print files. Thus in the special case BEFORE/ 
AFTER ADVANCING 0 LINES, the generated code places hex 8D in both control bytes to ensure 
proper overprinting. 

Table COB-1 illustrates these cases. 

Table COB-1: Contents of Control Bytes for 

BEFORE /AFTER ADVANCING Clause 


PROCEDURE DIVISION Entry 

Contents of 
control byte 1 

Contents of 
control byte 2 

BEFORE ADVANCING n LINES 

8D 

n 

BEFORE ADVANCING PAGE 

8D 

8C 

BEFORE ADVANCING 0 LINES 

8D 

8D 

AFTER ADVANCING n LINES 

n 

8D 

AFTER ADVANCING PAGE 

8C 

8D 

AFTER ADVANCING 0 LINES 

8D 

8D 
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COBSINIT-LINAGE 


2.2 Check LINAGE Parameters 


A linage initialization routine, which is generated in-line by the compiler, calls COB$INIT_LINAGE 
to check the LINAGE parameters for consistency. If the following conditions are true, this routine sets 
the linage counter to one: 


page-lines 

top-lines 

bottom-lines 

footing-line 

footing-line 


> 0 
>= 0 
> = 

> 0 

< = page-lines 


Format LINAGE IS... 


PROCEDURE DIVISION. 

generates CALL COB$INIT_LINAGE (rab.rr.r) 


Arguments 

rab 

The Record Access Block, passed by reference, of the file being printed. 


Implicit Inputs 

The implicit inputs for this procedure are contained in the context block, which is described in detail 
at the beginning of this chapter. The following fields of the context block are implicit inputs to this 
procedure: 


COB$l_CTX—LINAG 

COB$l_CTX—FOOTI 

COB$l_CTX—TOP 

COB$l_CTX—BOTTO 

COB$l_CTX_COUNT 


Messages 

COB$_INVLINVAL 

Invalid LINAGE value for the specified file. 

COB$_FATINTERR 
Fatal internal error. 
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COBSLINAGE 


2.3 Update LINAGE-COUNTER 

Before compiled code calls the RMS $PUT system service to print a record, it calls COB$LINAGE to 
update the linage counter and check for the end of the logical page. 

Format WRITE linage-file-rec 

generates CALL ret-status.wlc.v = COB$LINAGE (rab.rr.r, init_lng_routin.czem.vp) 

Arguments 

rab 

Record Access Block, passed by reference, of the file being printed. 
init_lng_routin 

The VAX-11 COBOL compiler generates an internal routine that converts the parameters from the 
LINAGE clause to longwords in the context field. This parameter is the entry mask of this internal 
routine. It is passed by reference. 

ret-status 

1 Success 

0 Failure 

Implicit Inputs 

The implicit inputs for this procedure are contained in the context block. The contents of the context 
block are described in detail at the beginning of this chapter. This procedure uses the following fields 
of the context block: 

COB$V_CTX_OPENL 

COB$l_CTX—LINAG 

COB$l_CTX_FOOTI 

COB$l_CTX_TOP 

COB$l_CTX_BOTTO 

COB$l_CTX—COUNT 

RAB$I_RHB 


COB$TERM-LINAGE 

2.4 Close Last Logical Page 

Before the compiled code calls the $CLOSE System Service to close a LINAGE file, it calls 
COB$TERM_LINAGE to advance the number of lines needed to complete the logical page. 

Format CLOSE linage-file 

generates CALL COB$TERM_LINAGE (rab.rr.r) 
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Arguments 


rab 

The Record Access Block, passed by reference, of the file being printed ( linage-file ). 

Implicit Inputs 

The implicit inputs for this procedure are contained in the context block. The contents of the context 
block are described in detail at the beginning of this chapter. The following fields of the context block 
are implicit inputs to this procedure: 

COB$V_CTX_OPENL 

COB$l_CTX_LINAG 

COB$l_CTX_FOOTI 

COB$l_CTX_TOP 

COB$l_CTX_BOTTO 

COB$l_CTX—COUNT 
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Chapter 3 

Auxiliary I/O Support 


The Run-Time Library supports the VAX-11 COBOL ACCEPT and DISPLAY statements. The ACCEPT 
statement makes low-volume data available to a program; the DISPLAY statement transfers low- 
volume data to the default output device (COB$OUTPUT) or to a device specified by the user. 


COB$ACCEPT 


3.1 ACCEPT Statement 

COB$ACCEPT reads a record from the specified device ( input-source) and returns the record in the 
destination string. This string replaces the contents of dest-item. 

If an AT END clause is present in the ACCEPT statement, the return value indicates to the calling 
program whether end-of-file has been reached. If so, the record is not copied into the destination 
string and the statement specified in the AT END clause is executed. 

Format ACCEPT dest-item [FROM input-source] 

[AT END stment [END-ACCEPT]] 

generates ret-value.wlu.v = COB$ACCEPT (inp-array.rbu.va, string.wt.ds) 

Arguments 

inp-array 

An array of two unsigned byte integers. Passed by immediate value. The first byte is the number 
associated with the device name input-source. The device name defines the specific device from 
which the routine obtains the record. If the user does not specify an input device, the routine gets 
the data from the default device, which is identified by the system logical name COB$INPUT. 
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Table COB-2 lists the numbers associated with the standard input devices for VAX-11 COBOL. 

Table COB-2: Unit Numbers Assigned to I/O Devices 


Unit 

Logical Device Name 

0 

COB$INPUT 

1 

COB$OUTPUT 

2 

COB$CONSOLE 

3 

COB$CARDREADER 

4 

COB$PAPERTAPEREADER 

5 

COB$LINEPRINTER 

6 

COB$PAPERTAPEPUNCH 


The second byte indicates whether the routine should return to the calling program or abort on an 
end-of-file condition. 

string 

The string (dest-item) that is to receive the read input. Passed by descriptor, 
ret-value 

1 Procedure successfully completed. 

0 If the second byte of inp-array is true, a value of zero indicates an end-of-file 

condition. 

Undefined If the second byte of inp-array is false, ret-value is undefined and all error 

conditions are signaled. 

Messages 

COB$_ERRDURACC 

Error encountered during ACCEPT. The associated RMS error code will be displayed. 

COB$_FAIGET_VM 

Failed to get virtual memory. 

COB$_EOFON_ACC 

End-of-file was encountered in input stream during ACCEPT. 

COB$_INVARG 

Invalid argument. 


COB$DISPLAY 


3.2 DISPLAY Statement 

COB$DISPLAY displays a string formed by concatenating the user's strings on the specified unit. After 
displaying the new string, the routine resets the position of the output device ( output-dest ) to the left 
position on its next line. 
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COB$DISP_NO_ADV displays a string in the same way, but does not reset the output device to the 
next line. 

Format DISPLAY {src-item} ... [UPON output-dest] 

generates ret-status.wlc.v = COB$DISPLAY (unit.rl.v, string.rt.dx [,...]) 

Format DISPLAY {src-item} ... [UPON output-dest] WITH NO 

ADVANCING 

generates ret-status.wlc.v = COB$DISP_NO_ADV (unit.rl.v, string.rt.dx [,...]) 

Arguments 

unit 

The number, passed by immediate value, associated with the device name output-dest. The 
device name in turn defines the specific device where the routine will display the string. Table 
COB-2 shows assignment of numbers to I/O devices. If the user does not specify an output 
device, COB$DISPLAY transfers data to the default output device, which is specified by the 
logical name COB$OUTPUT. 

string 

The string to be displayed (src-item), passed by descriptor. A maximum of 254 such strings may 
be supplied. 

ret-status 
1 Success 
0 Failure 

Messages 

COB$_ERRDURDIS 

Error occurred during DISPLAY. The associated RMS error code is also displayed. 

COB$_FAIGET_VM 

Failed to get virtual memory. 

COB$_INVARG 
Invalid argument. 
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Chapter 4 

Data-Type Conversion and Arithmetic Procedures 


VAX-11 COBOL supports a subset of the standard VAX-11 data types: 

• Integer data types 

- Word (signed and unsigned) 

- Longword (signed and unsigned) 

- Quadword (signed and unsigned) 

• Floating-point data types 

- F_floating 

- D_floating 

• DISPLAY numeric data types 

- Signed, right overpunch 

- Signed, left overpunch 

- Signed, right separate 

- Signed, left separate 

- Unsigned 

• Text (character string) 

• Packed decimal 

• COBOL intermediate temporary 

Run-Time Library procedures perform conversions between several of these data types. They also 
execute arithmetic operations that are not performed in line by VAX—11 COBOL. This chapter de¬ 
scribes these conversion and arithmetic procedures. 
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4.1 VAX-11 COBOL Data Types 

The way a data item is represented in the Data Division of a COBOL program determines whether it 
will be stored as an integer, floating-point, packed decimal, display numeric, or character string (text) 
data type. The following tables match COBOL Data Division entries with their corresponding 
VAX-11 data types. Table COB-3 gives the corresponding data types for unsealed data items, and 
Table COB—4 gives the data types for scaled data items. 

Given the PIC and USAGE clauses, and assuming that the data item was passed by descriptor, the 
table shows the descriptor fields for the data item. 

For example, a data item described as PIC S9(4) USAGE IS DISPLAY SIGN IS TRAILING would be 
stored in five bytes of storage as a right overpunch value. It would be considered a scalar data type 
(descriptor class S). A class S descriptor has no scale field. 

Note 

DISPLAY is the default USAGE for numeric data items. Thus the specification USAGE 
IS DISPLAY is optional for display numeric data types. Similarly, the default data type 
is right overpunch for signed DISPLAY data items, so that SIGN IS TRAILING is 
optional. 


Table COB-3: Unsealed Data Items and Corresponding VAX-11 Data Types 



Descriptor Fields (No SCALE Field) 

PICTURE Clause 

USAGE Clause 

Class 

DSC$B_CLASS 

Data Type 
DSC$B_DTYPE 

Length 

DSC$W_LENGTH 

PIC S9(n) 

[n <= 18] 

USAGE IS DISPLAY 

S (1) 

NRO (19) 

Right overpunch 

n bytes 

PIC S9(n) 

[n <= 18] 

USAGE IS DISPLAY 
SIGN IS TRAILING 

S (1) 

NRO (19) 

Right overpunch 

n bytes 

PIC S9(n) 

[n <= 18] 

USAGE IS DISPLAY 
SIGN IS LEADING 

S (1) 

NLO (17) 

Left overpunch 

n bytes 

PIC S9(n) 

[n <= 18] 

USAGE IS DISPLAY 
SIGN IS TRAILING 
SEPARATE 

S (1) 

NR (18) 

Right separate 

n + 1 
bytes 

PIC S9(n) 

[n <= 18] 

USAGE IS DISPLAY 
SIGN IS LEADING 
SEPARATE 

S (1) 

NL (16) 

Left separate 

n + 1 
bytes 

PIC 9(n) 

[n <= 18] 

USAGE IS DISPLAY 

S (1) 

NU (15) 

Unsigned numeric 

n bytes 

PIC 9(n) 

[n <= 4] 

USAGE IS COMP 

S (1) 

WU (3)* 

Word logical 

2 bytes 

PIC 9(n) 

[5 <= n <= 9] 

USAGE IS COMP 

S (1) 

LU (4)* 

Longword logical 

4 bytes 

PIC 9(n) 

[10 <= n < = 18] 

USAGE IS COMP 

S (1) 

QU (5)* 

Quadword logical 

8 bytes 


(continued on next page) 
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Table COB-3: Unsealed Data Items and Corresponding VAX-11 Data Types (Cont.) 



Descriptor Fields (No SCALE Field) 

PICTURE Clause 

USAGE Clause 

Class 

DSC$B_CLASS 

Data Type 
DSC$B_DTYPE 

Length 

DSC$W_LENGTH 

PIC S9(n) 

[n < = 4] 

USAGE IS COMP 

S (1) 

w ( 7 ) 

Word integer 

2 bytes 

PIC S9(n) 

[5 <= n < = 9] 

USAGE IS COMP 

S (1) 

L (8) 

Longword integer 

4 bytes 

PIC S9(n) 

|10 <= n < = 181 

USAGE IS COMP 

S (1) 

Q (9) 

Quadword integer 

8 bytes 

N/A 

USAGE IS INDEX 

s (1) 

L (8) 

Longword integer 

4 bytes 

N/A 

USAGE IS POINTER 

S (1) 

L (8) 

Longword integer 

4 bytes 

N/A 

USAGE IS COMP-1 

S (1) 

F (10) 

F_floating 

4 bytes 

N/A 

USAGE IS COMP-2 

S (1) 

D (11) 

D_floating 

8 bytes 

PIC S9(n) 

[n <= 18] 

USAGE IS COMP-3 

s (1) 

P (21) 

Packed decimal 

n digits 

PIC 9(n) 

[n <= 18] 

USAGE IS COMP-3 

S (1) 

P (21) 

Packed decimal 

n digits 

PIC X(n) or 
[n <= 65,535] 

USAGE IS DISPLAY 

S (1) 

T (14) 

ASCII Text 

n bytes 

PIC A(n) or 
[n <= 65,535] 

USAGE IS DISPLAY 

s (1) 

T (14) 

ASCII Text 

n bytes 


KEY 


* Generated COBOL code treats this data type as a signed operand except when it is a 
receiving-field operand. In this case, the compiler stores the absolute value of the data type. 

N/A Not Applicable 
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Table COB-4: Scaled Data Items and VAX-11 Data Types 
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KEY 


* Generated COBOL code treats this data type as a signed operand except when it is a receiving- 
field operand. In this case, the compiler stores the absolute value of the data type. 

The COBOL intermediate temporary (CIT) data item is a signed numeric data item supplied by the 
compiler to contain the partial results of an arithmetic operation before the final result is moved to the 
location specified in the program. The CIT data item contains the 18 most significant digits of the 
intermediate result. During the arithmetic operation, the magnitude of the result is maintained while 
all truncated low-order digits are treated as zeros. The CIT data type is used internally. A CIT data 
item cannot be specified in the Data Division or passed as a parameter. Appendix C, Section C.7.6, 
of the VAX—7 7 Run-Time Library Reference Manual discusses the CIT data type in more detail. 

Chapter 2 in the Generic Division of this manual discusses the remaining data types. 

4.2 Conversion Procedures 

Table COB—5 lists the data type conversions that can be performed on VAX—11, using either hard¬ 
ware instructions or COB$ routines from the Run-Time Library. Table COB—6 lists the Run-Time 
Library data type conversion routines and their functions. Sections 4.2.1 to 4.2.3 describe the conver¬ 
sion routines in detail. 


Note 

The COB$ conversion procedures are JSB routines. They can be invoked explicitly 
only from a program written in MACRO or BLISS. 

Table COB-5: Valid VAX-11 Data Type Conversions 



To 

From 

Word 

Long 

Quad 

F_float 

D_float 

Packed 

CIT 

Text 

Word 

- 

H 

- 

H 

H 

- 

L 

- 

Longword 

H 

- 

- 

Hr 

H 

H 

L 

- 

Quadword 

- 

- 

- 

L 

L 

Lr Lr 

L 

- 

F_floating 

H 

Hr 

L, Lr 

- 

H 

Lr Lr 

L 

- 

D_floating 

H 

Hr 

L, Lr 

Hr 

- 

Lr Lr 

L 

- 

Packed 

decimal 

- 

H 

Lr Lr 

L 

L 

- 

L 

- 

COBOL 

intermediate 

temporary 

L, Lr 

L, Lr 

Lr Lr 

L 

L 

Lr Lr 

— 

— 

Text 

- 

- 

- 

- 

- 

- 

L 

- 


KEY 


H Hardware instruction performs operation 
Hr Hardware instruction performs operation with rounding 
L Library procedure performs the operation 

Lr Library procedure performs the operation with rounding 
— Operation cannot be performed 
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Table COB-6 lists the COB$ data type conversion procedures. The sections that follow this table 
describe the procedures in detail. 

Table COB—6: COB$ Data Type Conversion Procedures 




Converts 

Section 

Entry Point 

From 

To 

Conversior 

is to and from COBO 

L intermediate ter 

nporary 

4.1.1.1 

COB$CVTWI_R8 

Word 

CIT 

4.1.1.1 

COB$CVTLI_R8 

Longword 

CIT 

4.1.1.1 

COB$CVTQI_R8 

Quadword 

CIT 

4.1.1.1 

COB$CVTDI_R7 

D_floating 

CIT 

4.1.1.1 

COB$CVTFI_R7 

F_floating 

CIT 

4.1.1.1 

COB$CVTPI_R9 

Packed decimal 

CIT 

4.1.1.1 

COB$CVTTI_R8 

Text 

CIT 

4.1.1.2 

COB$CVTIW_R8 

CIT 

Word 

4.1.1.2 

COB$CVTRIW_R8 

CIT 

Word rounded 

4.1.1.2 

COB$CVTII_R8 

CIT 

Longword 

4.1.1.2 

COB$CVTRII_R8 

CIT 

Longword rounded 

4.1.1.2 

COB$CVTIQ_R8 

CIT 

Quadword 

4.1.1.2 

COB$CVTRIQ_R8 

CIT 

Quadword rounded 

4.1.1.2 

COB$CVTIF_R7 

CIT 

F_floating 

4.1.1.2 

COB$CVTID_R7 

CIT 

D_floating 

4.1.1.2 

COB$CVTIP_R9 

CIT 

Packed decimal 

4.1.1.2 

COB$CVTRIP_R9 

CIT 

Packed decimal rounded 

4.1.2 

COB$CNVOUT 

D_floating, 
G_floating, or 
H_floating 

Text (FORTRAN 

E format) 


(continued on next page) 
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Table COB—6: Data Type Conversion Procedures (Cont.) 




Converts 

Section 

Procedure 

From 

To 

Conversio 

ns from Quadword 



4.1.3.1 

COB$CVTQF_R8 

Quadword 

F_floating 

4.1.3.1 

COB$CVTQD_R8 

Quadword 

D_floating 

4.1.3.1 

COB$CVTQP_R9 

Quadword 

Packed decimal 

4.1.3.1 

COB$CVTRQP_R9 

Quadword 

Packed decimal rounded 

Conversio 

ns from F_floating 



4.1.3.2 

COB$CVTFQ_R8 

F_floating 

Quadword 

4.1.3.2 

COB$CVTRFQ_R8 

F_floating 

Quadword rounded 

4.1.3.2 

COB$CVTFP_R9 

F_floating 

Packed decimal 

4.1.3.2 

COB$CVTRFP_R9 

F_floating 

Packed decimal rounded 

Conversio 

ns from D_floating 



4.1.3.3 

COB$CVTDQ_R8 

D_floating 

Quadword 

4.1.3.3 

COB$CVTRDQ_R8 

D_floating 

Quadword rounded 

4.1.3.3 

COB$CVTDP_R9 

D_floating 

Packed decimal 

4.1.3.3 

COB$CVTRDP_R9 

D_floating 

Packed decimal rounded 

Conversio 

ms from packed decim 

lal 


4.1.3.4 

COB$CVTPQ_R9 

Packed decimal 

Quadword 

4.1.3.4 

COB$CVTRPQ_R9 

Packed decimal 

Quadword rounded 

4.1.3.4 

COB$CVTPF_R9 

Packed decimal 

F_floating 

4.1.3.4 

COB$CVTPD_R9 

Packed decimal 

D_floating 
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4.2.1 Conversions Using COBOL Intermediate Temporary Data Type 

The following procedures convert other data types to COBOL intermediate temporary before perform¬ 
ing an arithmetic operation. They then convert the result to the specified data type. 

COB$CVTxl-Rn 

4.2.1.1 Conversions to COBOL Intermediate Temporary — This section describes the COB$ routines 
in the Run-Time Library that convert data to COBOL intermediate temporary data type. 

COB$CVTWI_R8 converts a word to its COBOL intermediate temporary data type representation. 
Format JSB ret-status.wlc.v = COB$CVTWI_R8 (scale.rl.v, src.rw.r, dst.wx.r) 


COB$CVTLI_R8 converts a longword to its COBOL intermediate temporary data type representation. 
Format JSB ret-status.wlc.v = COB$CVTLI_R8 (scale.rl.v, src.rl.r, dst.wx.r) 

COB$CVTQI_R8 converts a quadword integer to its COBOL intermediate temporary data type 
representation. 

Format JSB ret-status.wlc.v = COB$CVTQI_R8 (scale.rl.v, src.rq.r, dst.wx.r) 


COB$CVTDI_R7 converts a D_floating number to its COBOL intermediate temporary data type 
representation. 

Format JSB ret-status.wlc.v = COB$CVTDI_R7 (src.rd.r, dst.wx.r) 


COB$CVTFI_R7 converts an F_floating number to its COBOL intermediate temporary data type 
representation. 

Format JSB ret-status.wlc.v = COB$CVTFI_R7 (src.rf.r, dst.wx.r) 


COB$CVTPI_R9 converts a packed decimal number to its COBOL intermediate temporary data type 
representation. 

Format JSB ret-status.wlc.v = COB$CVTPI_R9 (scale.rl.v, srclen.rl.v, src.rp.r, dst.wx.r) 


COB$CVTTI_R8 converts an ASCII text string to its COBOL intermediate temporary data type 
representation. 

Format JSB ret-status.wlc.v = COB$CVTTI_R8 (srclen.rl.v, src.rt.r, dst.wx.r) 
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Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 

srclen 

The number of digits in the source, passed by immediate value, 
src 

The number to be converted, passed by reference, 
dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 

Table COB-7: Register Usage for Conversions to COBOL Intermediate Temporary 


Procedure 

Argument 

Register 

COB$CVTWI_R8 

scale 

R6 

COB$CVTLI_R8 

src 

R7 

COB$CVTQI_R8 

dst 

R8 

COB$CVTDI_R7 

src 

R6 

COB$CVTFI_R7 

dst 

R7 

COB$CVTPI_R9 

scale 

R6 


srclen 

R7 


src 

R8 


dst 

R9 

COB$CVTTI_R8 

srclen 

R6 


src 

R7 


dst 

R8 


Messages 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INVDECDIG 
Invalid decimal digit. 

OTS$_FATINTERR 

Fatal internal error. This message indicates a failure in the procedure COB$CNVOUT. 
SS$_ROPRAND 

Floating reserved operand detected. 
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COB$CVTIx_Rn 


4.2.1.2 Conversions from COBOL Intermediate Temporary — This section describes the COB$ proce¬ 
dures that convert data from COBOL intermediate temporary to other data types. 

COB$CVTIW_R8 converts a COBOL intermediate temporary data type number to its word 
representation. 

Format JSB ret-status.wlc.v = COB$CVTIW_R8 (scale.rl.v, src.rx.r, dst.ww.r) 


COB$CVTRIW_R8 converts a COBOL intermediate temporary data type number to its rounded word 
representation. 

Format JSB ret-status.wlc.v = COB$CVTRIW_R8 (scale.rl.v, src.rx.r, dst.ww.r) 


COB$CVTII_R8 converts a COBOL intermediate temporary data type number to its longword 

representation. 

Format JSB ret-status.wlc.v = COB$CVTII_R8 (scale.rl.v, src.rx.r, dst.wl.r) 


COB$CVTRII_R8 converts a COBOL intermediate temporary data type number to its rounded long- 

word representation. 

Format JSB ret-status.wlc.v = COB$CVTRII_R8 (scale.rl.v, src.rx.r, dst.wl.r) 


COB$CVTIQ_R8 converts a COBOL intermediate temporary data type number to its quadword 
representation. 

Format JSB ret-status.wlc.v = COB$CVTIQ_R8 (scale.rl.v, src.rx.r, dst.wq.r) 

COB$CVTRIQ_R8 converts a COBOL intermediate temporary data type number to its rounded quad- 
word representation. 

Format JSB ret-status.wlc.v = COB$CVTRIQ_R8 (scale.rl.v, src.rx.r, dst.wq.r) 


COB$CVTIF_R7 converts a COBOL intermediate temporary data type number to its floating-point 
representation. 

Format JSB ret-status.wlc.v = COB$CVTIF_R7 (src.rx.r, dst.wf.r) 

COB$CVTID_R7 converts a COBOL intermediate temporary data type number to its D_floating 
representation. 
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Format 


JSB ret-status.wlc.v = COB$CVTID_R7 (src.rx.r, dst.wd.r) 


COB$CVTIP_R9 converts a COBOL intermediate temporary data type number to its packed decimal 
representation. 

Format JSB ret-status.wlc.v = COB$CVTIP_R9 (scale.rl.v, src.rx.r, dstlen.rl.v, dst.wp.r) 

COB$CVTRIP_R9 converts a COBOL intermediate temporary data type number to its rounded 
packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTRIP_R9 (scale.rl.v, src.rx.r, dstlen.rl.v, dst.wp.r) 


Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 

srclen 

The number of digits in the source. Passed by immediate value. 


src 

The number to be converted, passed by reference. 


dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 


Table COB-8: Register Usage for Conversions from COBOL Intermediate Temporary 


Procedure 

Argument 

Register 

COB$CVTIW_R8 

scale 

R6 

COB$CVTRIW_R8 

src 

R 7 

COB$CVTII_R8 

dst 

R8 

COB$CVTRII_R8 



COB$CVTIQ_R8 



COB$CVTRIQ_R8 



COB$CVTIF_R7 

src 

R6 

COB$CVTID_R7 

dst 

R 7 

COB$CVTIP_R9 

scale 

R6 

COB$CVTRIP_R9 

srclen 

R 7 


src 

R8 


dst 

R9 
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Messages 


COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

OTS$_FATINTERR 

Fatal internal error. This message indicates a failure in the procedure COB$CNVOUT. 


4.2.2 Conversion from F_Floating and D-Floating to FORTRAN E Format 

COB$CNVOUT converts an F_floating or D_floating value to a character string in the FORTRAN E 
format. The Run-Time Library uses this routine to perform an intermediate step in the conversion of 
floating-point values to COBOL intermediate temporary data type. 

Format ret-status.wlc.v = COBSCNVOUT (value.rx.r, out_string.wt.ds, digits_in_fract.rlu.v) 

Arguments 

value 

The value to be converted, passed by reference. 
out_string 

The resulting fixed-length string, passed by descriptor. 
digits_in_fract 

The number of digits in the fraction portion of the result. Passed by immediate value. 

ret-status 

SS$_NORMAL 
Successful completion. 

OTS$_FATINTERR 

Output conversion error. The value did not fit the given string. 


Messages 

SS$_ROPRAND 

Floating reserved operand detected. 


4.2.3 Conversion Procedures — Integer, Floating-Point, and Packed 

This section describes the COB$ data type conversion routines that perform conversions between 
integer, floating-point, and packed decimal data types. Note that these routines have JSB entry points. 
They therefore cannot be called explicitly from high-level languages. The parameters for these 
routines are placed in registers before the JSB is executed. The table that follows each argument list 
shows the register in which each parameter is passed for each procedure. 
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COB$CVTQx-Rn 


4.2.3.1 Conversions from Quadword Data Type — This section describes the COB$ routines that 
convert data from quadword to other data types. 

COB$CVTQF_R8 converts a quadword to its floating-point representation. 

Format JSB ret-status.wlc.v = COB$CVTQF_R8 (scale.rl.v, src.rq.r, dst.wf.r) 

COB$CVTQD_R8 converts a quadword to its D_floating representation. 

Format JSB ret-status.wlc.v = COB$CVTQD_R8 (scale.rl.v, src.rq.r, dst.wd.r) 

COB$CVTQP_R9 converts a quadword to its packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTQP_R9 (scale.rl.v, src.rq.r, dstlen.rl.v, dst.wp.r) 

COB$CVTRQP_R9 converts a quadword to its rounded packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTRQP_R9 (scale.rl.v, src.rq.r, dstlen.rl.v, dst.wp.r) 

Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 


src 

The number to be converted, passed by reference, 
dstlen 

The number of digits in the destination, passed by immediate value, 
dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 
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Table COB-9: Register Usage for Conversions from Quadword 


Procedure 

Argument 

Register 

COB$CVTQF_R8 

scale 

R6 

COB$CVTQD_R8 

src 

R 7 


dst 

R8 

COB$CVTQP_R9 

scale 

R6 

COB$CVTRQP_R9 

src 

R 7 


dstlen 

R8 


dst 

R9 


COB$CVTFx-Rn 


4.2.3.2 Conversions from F_Floating Data Type — This section describes the COB$ procedures that 
convert F_floating data to other data types. 

COB$CVTFQ_R8 converts an F_floating number to its quadword representation. 

Format JSB ret-status.wlc.v = COB$CVTFQ_R8 (scale.rl.v, src.rf.r, dst.wq.r) 

COB$CVTRFQ_R8 converts an F_floating number to its rounded quadword representation. 

Format JSB ret-status.wlc.v = COB$CVTRFQ_R8 (scale.rl.v, src.rf.r, dst.wq.r) 

COB$CVTFP_R9 converts an F_floating number to its packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTFP_R9 (scale.rl.v, src.rf.r, dstlen.rl.v, dst.wp.r) 

COB$CVTRFP_R9 converts an F_floating number to its rounded packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTRFP_R9 (scale.rl.v, src.rf.r, dstlen.rl.v, dst.wp.r) 

Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 

src 

The number to be converted, passed by reference. 
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dstlen 

The number of digits in the destination, passed by immediate value, 
dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 

Table COB-10: Register Usage for Conversions from F_Floating 


Procedure 

Argument 

Register 

COB$CVTFQ_R8 

scale 

R6 

COB$CVTRFQ_R8 

src 

R 7 


dst 

R8 

COB$CVTFP_R9 

scale 

R6 

COB$CVTRFP_R9 

src 

R 7 


dstlen 

R8 


dst 

R9 


Messages 

OTS$_FATINTERR 

Fatal internal error. This message indicates a failure in the procedure COBSCNVOUT. 
SS$_ROPRAND 

Floating reserved operand detected. 

COB$CVTDx—Rx 


4.2.3.3 Conversions from D_Floating Data Type — This section describes the COB$ procedures that 
convert data of the D_floating type to other data types. 

COB$CVTDQ_R8 converts a D_floating number to its quadword representation. 

Format JSB ret-status.wlc.v = COB$CVTDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 

COB$CVTRDQ_R8 converts a D_floating number to its rounded quadword representation. 

Format JSB ret-status.wlc.v = COB$CVTRDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 

COB$CVTDP_R9 converts a D_floating number to its packed decimal representation. 

Format JSB ret-status.wlc.v = COB$CVTDP_R9 (scale.rl.v, src.rd.r, dstlen.rl.v, dst.wp.r) 


Data Type Conversion and Arithmetic Procedures COB 31 






COB$CVTRDP_R9 converts a D_floating number to its rounded packed decimal representation. 


Format JSB ret-status.wlc.v = COB$CVTRDP_R9 (scale.rl.v, src.rd.r, dstlen.rl.v, dst.wp.r) 


Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 


src 

The number to be converted, passed by reference, 
dstlen 

The number of digits in the destination, passed by immediate value, 
dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 


Table COB-11: Register Usage for Conversions from D_Floating 


Procedure 

Argument 

Register 

COB$CVTDQ_R8 

scale 

R6 

COB$CVTRDQ_R8 

src 

R 7 


dst 

R8 

COB$CVTDP_R9 

scale 

R6 

COB$CVTRDP_R9 

src 

R 7 


dstlen 

R8 


dst 

R9 


Messages 

OTS$_FATINTERR 

Fatal internal error. This message indicates a failure in the procedure COB$CNVOUT. 
SS$_ROPRAND 

Floating reserved operand detected. 
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COB$CVTPx-Rn 


4.2.3.4 Conversions from Packed Decimal Data Type — This section describes the COB$ procedures 
that convert packed decimal data to other data types. 

COB$CVTPQ_R9 converts a packed decimal number to its quadword representation. 

Format , JSB ret-status.wlc.v = COB$CVTPQ_R9 (scale.rl.v, srclen.rl.v, src.rp.r, dst.wq.r) 
COB$CVTRPQ_R9 converts a packed decimal number to its rounded quadword representation. 

Format JSB ret-status.wlc.v = COB$CVTRPQ_R9 (scale.rl.v, srclen.rl.v, src.rp.r, dst.wq.r) 

COB$CVTPF_R9 converts a packed decimal number to its floating-point representation. 

Format JSB ret-status.wlc.v = COB$CVTPF_R9 (scale.rl.v, srclen.rl.v, src.rp.r, dst.wf.r) 

COB$CVTPD_R9 converts a packed decimal number to its D_floating representation. 

Format JSB ret-status.wlc.v = COB$CVTPD_R9 (scale.rl.v, srclen.rl.v, src.rp.r, dst.wd.r) 

Arguments 

The table following the argument list indicates the register in which each argument is placed before 
the JSB for each routine described in this section. 

scale 

The power of 10 by which the internal representation of the source must be multiplied to have the 
same scale as the internal representation of the destination. Passed by immediate value. 

srclen 

The number of digits in the source, passed by immediate value, 
src 

The number to be converted, passed by reference, 
dst 

The converted number, passed by reference. 

ret-status 

1 Success 
0 Failure 

Table COB—12: Register Usage for Conversions from Packed Decimal 


Procedure 

Argument 

Register 

COB$CVTPQ_R9 

scale 

R6 

COB$CVTRPQ_R9 

srclen 

R 7 

COB$CVTPF_R9 

src 

R8 

COB$CVTPD_R9 

dst 

R9 
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4.3 Arithmetic Procedures 


The following procedures support COBOL arithmetic statements. Section 4.2.1 lists procedures that 
use the COBOL intermediate temporary data type. Section 4.2.2 lists procedures that perform arith¬ 
metic operations on quadword data items. VAX-11 COBOL performs all other arithmetic procedures 
in line without calling the Run-Time Library. 


4.3.1 COBOL Intermediate Temporary Arithmetic Procedures 


Several procedures in the Run-Time Library perform arithmetic operations on COBOL intermediate 
temporary data items: 


COB$ADDI 

COB$SUBI 

COB$MULI 

COB$DIVI 

COB$DIVI_OSE 

COBSEXPI 

COB$EXPI_OSE 

COB$CMPI 


Adds a CIT data item. 

Subtracts a CIT data item. 

Multiplies a CIT data item. 

Divides a CIT data item. 

Divides a CIT data item when the SIZE ERROR phrase is present. 

Raises a CIT data item to a power. 

Raises a CIT data item to a power when the SIZE ERROR phrase is present. 
Compares two CIT data items. 


COB$ADDI 


4.3.1.1 Add COBOL Intermediate Temporary — COBSADDI adds two values, referred to by their 
descriptors, using COBOL intermediate temporary data type arithmetic. The descriptor of the result 
specifies its data type. 

Format ret-status.wlc.v = COB$ADDI (addend2.rx.dx, addendl.rx.dx, sum.wx.dx) 


Arguments 

addend2 

The value to the right of the addition operator ( + ), passed by descriptor, 
addendl 

The value to the left of the addition operator ( + ), passed by descriptor, 
sum 

The result of the addition, passed by descriptor. 

ret-status 

1 Success 
0 Failure 
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Messages 


COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the procedure has encountered an 
unsupported data type. 

SS$_ROPRAND 

Lloating reserved operand detected. 

COB$SUBI 

4.3.1.2 Subtract COBOL Intermediate Temporary — COB$SUBI subtracts one value from another 
using COBOL intermediate temporary data type arithmetic. The source values are referred to by their 
descriptors. The descriptor of the result specifies its data type. 

Format ret-status.wlc.v = COB$SUBI (subtrahend.rx.dx, minuend.rx.dx, difference.wx.dx) 

Arguments 

subtrahend 

The value to the right of the subtraction operator (—), passed by descriptor, 
minuend 

The value to the left of the subtraction operator (—), passed by descriptor, 
difference 

The result of the subtraction, passed by descriptor. 

ret-status 

1 Success 
0 Failure 

Messages 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an 
unsupported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 
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COB$MULI 


4.3.1.3 Multiply COBOL Intermediate Temporary — COB$MULI multiplies two values, referred to by 
their descriptors, using COBOL intermediate temporary data type arithmetic. The descriptor of the 
result specifies its data type. 


Format ret-status.wlc.v = COBSMULI (multiplier.rx.dx, multiplicand.rx.dx, product.wx.dx) 

Arguments 

multiplier 

The value to the right of the multiplication operator (*), passed by descriptor, 
multiplicand 

The value to the left of the multiplication operator (*), passed by descriptor, 
product 

The result of the multiplication operation, passed by descriptor. 

ret-status 

1 Success 
0 Failure 

Messages 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an 
unsupported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 
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COB$DIVI 


4.3.1.4 Divide COBOL Intermediate Temporary — COB$DIVI divides two values, referred to by their 
descriptors, using COBOL intermediate temporary data type arithmetic. The descriptor of the result 
specifies its data type. 

Format ret-status.wlc.v = COB$DIVI (divisor.rx.dx, dividend.rx.dx, quotient.wx.dx) 

Arguments 

divisor 

The value to the right of the division operator (/), passed by descriptor, 
dividend 

The value to the left of the division operator (/), passed by descriptor, 
quotient 

The result of the division operation, passed by descriptor. 

ret-status 

1 Success 
0 Failure 

Messages 

COB$_INTDIVZER 

COBOL intermediate temporary data type divide-by-zero error. 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an 
unsupported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 
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COB$DIVI-OSE 


4.3.1.5 Divide COBOL Intermediate Temporary, ON SIZE ERROR — COB$DIVI_OSE divides two 
values, referred to by their descriptors, using COBOL intermediate temporary data type arithmetic. 
The descriptor of the quotient parameter specifies its data type. This routine does not signal a size 
error (exponent overflow or underflow); instead, compiled code inspects the return status in order to 
support an ON SIZE ERROR clause. 

Format ret-status.wlc.v = COB$DIVI_OSE (divisor.rx.dx, dividend.rx.dx, quotient.wx.dx) 

Arguments 

divisor 

The value to the right of the division operator (/), passed by descriptor, 
dividend 

The value to the left of the division operator (/), passed by descriptor, 
quotient 

The result of the division operation, passed by descriptor. 

ret-status 

1 Success 
0 Failure 

Messages 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an 
unsupported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 

COB$EXPI 


4.3.1.6 Exponentiate COBOL Intermediate Temporary — COB$EXPI raises a base to a power using 
COBOL intermediate temporary data type arithmetic. The base and power are both referred to by 
their descriptors. The descriptor of power specifies its data type. 

Format ret-status.wlc.v = COB$EXPI (base.rx.dx, exponent.rx.dx, power.wx.dx) 


Arguments 

base 

The value to the left of the exponentiation operator (**), passed by descriptor, 
exponent 

The value to the right of the exponentiation operator (**), passed by descriptor. 
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power 

The result of the exponentiation, passed by descriptor. 

ret-status 

1 Success 
0 Failure 

Messages 

COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an unsup¬ 
ported data type. 

COB$_UNDEFEXP 

Undefined exponentiation on COBOL intermediate temporary data type. 

SS$_ROPRAND 

Floating reserved operand detected. 


COB$EXPI—OSE 


4.3.1.7 Exponentiate COBOL Intermediate Temporary, ON SIZE ERROR — COB$EXPI_OSE raises a 
base to a power using COBOL intermediate temporary data type arithmetic. The base and power are 
both referred to by their descriptors. The descriptor of the power parameter specifies its data type. 
This routine does not signal size errors (exponent overflow and underflow); instead, compiled code 
inspects the return status in order to support an ON SIZE ERROR clause. 

Format ret-status.wlc.v = COB$EXPI_OSE (base.rx.dx, exponent.rx.dx, power.wx.dx) 

Arguments 

base 

The value to the left of the exponentiation operator (**), passed by descriptor, 
exponent 

The value to the right of the exponentiation operator (**), passed by descriptor, 
power 

The result of the exponentiation, passed by descriptor. 

ret-status 

1 Success 
0 Failure 
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Messages 


COB$_INTRESOPE 

COBOL intermediate temporary reserved operand. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an unsup¬ 
ported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 

COB$CMPI 


4.3.1.8 Compare COBOL Intermediate Temporary — COB$CMPI compares two values, referred to by 
their descriptors, using COBOL intermediate temporary data type arithmetic. It then returns a status 
that indicates whether the first of the values is less than, equal to, or greater than the second value. 

Format value.wl.v = COB$CMPI (srcl .rx.dx, src2.rx.dx) 

Arguments 

srcl 

The first value to be compared, passed by descriptor. 
src2 

The second value to be compared, passed by descriptor, 
value 

The result of the comparison, passed by descriptor: 

-1 if srcl < src2 
0 if srcl = src2 
+ 1 if src 7 > src2 

Messages 

COB$_INTRESOPE 

COBOL intermediate temporary data type reserved operand. 

COB$_INTEXPOVE 

COBOL intermediate temporary data type exponent overflow. 

COB$_INTEXPUND 

COBOL intermediate temporary data type exponent underflow. 

COB$_INVARG 

Invalid argument. In this case, the message signals that the routine has encountered an unsup¬ 
ported data type. 

SS$_ROPRAND 

Floating reserved operand detected. 
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4.3.2 Quadword Data Type 

The following procedures perform arithmetic operations on quadwords and return the results in the 
quadword data type. 

COB$MULQ-R8 


4.3.2.1 Multiply Quadwords — COB$MULQ_R8 multiplies two quadword integers and returns the 
result as a quadword integer. 

Format JSB COB$MULQ_R8 (multiplier.rq.r, multiplicand.rq.r, product.wq.r) 

Arguments 

The number in parentheses indicates the register in which the parameter is passed, 
multiplier (R6) 

The value to the right of the multiplication operator (*), passed by reference, 
multiplicand (R7) 

The value to the left of the multiplication operator (*), passed by reference, 
product (R8) 

The result of the multiplication, passed by reference. 


COB$DIVQ—R8 


4.3.2.2 Divide Quadwords — COB$DIVQ_R8 divides two quadword integers and returns the result 
as a quadword integer. 

Format JSB COB$DIVQ_R8 (divisor,rq.r, dividend.rq.r, quotient.wq.r) 


Arguments 

The number in parentheses indicates the register in which the parameter is passed, 
divisor (R6) 

The value to the right of the division operator (/), passed by reference, 
dividend (R7) 

The value to the left of the division operator (/), passed by reference, 
quotient (R8) 

The integer portion of the result of the division, passed by reference. 

Messages 

SS$_INTDIV 

Attempted to divide integer by zero. 
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Chapter 5 

Compiled-Code Support Procedures 


This chapter describes VAX-11 Run-Time Library procedures called by the VAX—11 COBOL compiler 
to support various COBOL language statements. 


COB$CALL 


5.1 CALL Statement 

COB$CALL supports the CALL identifier format of the VAX-11 COBOL CALL statement. The routine 
calls an internal procedure that searches the list of local program names to find a match with the prog 
parameter. If it does not find a match, it searches the list of global program names. If it finds a match 
in either list, COB$CALL returns the address of the routine entry point. If it does not, it returns a value 
of zero. 


Format CALL prog-name 

generates ret-status.wlc.v = COB$CALL (prog.rt.ds, local-list.rr.r) 

Arguments 

prog 

The name of the called routine ( prog-name ), passed by descriptor, 
local-list 

A counted list of accessible local programs, passed by reference, 
ret-value 

The address of the routine to be called, passed by immediate value. If the COB$CALL fails to find 
a match for the address, it returns zero. 
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COB$CANCEL 


5.2 CANCEL Statement 

COB$CANCEL supports the VAX-11 COBOL CANCEL statement. It calls an internal Run-Time 
Library subroutine that searches for the name of the program to be canceled. If it finds the matching 
entry, it checks for files that have been opened by the called routine and closes them. Finally, the 
routine checks whether the routine has local storage. If so, the procedure restores the local storage to 
its initial condition. 

Format CANCEL prog-name 

generates CALL COB$CANCEL (prog.rt.ds, local-list.rr.r) 

Arguments 

prog 

The name of the routine ( prog-name ), passed by descriptor, 
local-list 

The list, passed by reference, of the accessible local programs. 

Messages 

COB$_CANFAIL 
CANCEL failed. 

COB$_FAIGET_EF 

Failed to get an event flag number from LIB$GET_EF. 

COB$_FATINTERR 
Fatal internal error. 

COB$ACC-DATE 


5.3 Date/Time Procedures 

The COB$ date/time procedures in the Run-Time Library support the following format of the COBOL 
ACCEPT statement: 

1 DATE 
DAY 

DAY-OF-WEEK 

TIME 


COB$ACC_DATE returns the current date in the format yymmdd. 

Format ACCEPT dest-item FROM DATE 

generates CALL COB$ACC_DATE (dst.wt.ds) 

COB$ACC_DAY returns the number of the current day of the year in the format yyddd. That is, the 
return value yyddd means "Today is day number ddd of the year 19yy." 
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Format ACCEPT dest-item FROM DAY 

generates CALL COB$ACC_DAY (dst.wt.ds) 

COB$ACC_DAYWEEK returns the day of the week as an unsigned numeric display data item (that is, 
an ASCII integer) according to the following table: 

1 Monday 

2 Tuesday 

3 Wednesday 

4 Thursday 

5 Friday 

6 Saturday 

7 Sunday 

Format ACCEPT dest-item FROM DAY-OF-WEEK 

generates CALL COB$ACC_DAYWEEK (dst.wt.ds) 

COB$ACC_TIME returns the time of day as an ASCII character string in the format hhmmssxx where: 

hh Hours 

mm Minutes 

ss Seconds 

xx Hundredths of seconds 

Format ACCEPT dest-item FROM TIME 

generates CALL COB$ACC—TIME (dst.wt.ds) 

Arguments 

dst 

The returned date or time string, passed by descriptor. 


5.4 Error Handling 


Various Run-Time Library procedures interact with the VAX/VMS Condition Handling Facility and 
COBOL error handling to handle errors detected at run time. This section describes the VAX—11 
COBOL error handling facility and the Run-Time Library procedures that it uses. 

COBOL run-time errors are generally severe (fatal) errors that cause execution to stop. 

Several run-time errors result in a call to COB$ERROR. COB$ERROR in turn calls LIB$STOP and 
displays the appropriate message. Section 5.4.1 describes COB$ERROR in more detail and gives a list 
of the errors that it handles. 

When input/output errors occur, the compiler calls COB$IOEXCEPTION. This procedure performs 
the following functions: 

• It searches the current program and all the programs containing it for a USE procedure. 

• If COB$IOEXCEPTION finds a USE procedure, it checks to see whether the USE procedure is 
defined within the current program, that is, in the program where the error occurred. If so, it causes 
the USE procedure to execute. 
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• If a USE procedure has been defined, but not within the current program, COB$IOEXCEPTION 
signals a special condition value indicating that the USE procedure has been defined at a higher 
level. COB$HANDLER then finds the stack frame where the USE procedure was defined and 
invokes the procedure. 

• If a handler other than COB$HANDLER is found in the frame of the procedure that defined the USE 
procedure, the COBOL environment has been destroyed. Results are unpredictable in this case. 
(See the note at the end of this section.) 

• If there are no applicable USE procedures and the error is severe, COB$IOEXCEPTION signals the 
error by calling LIB$STOP. Program execution stops and an error message is displayed. 

When an error occurs accessing a data base facility, the compiler calls COB$DBEXCEPTION. The 
action of this procedure is similar to that of COB$IOEXCEPTION. 

COB$HANDLER is the default condition handler established in the procedure stack frame of every 
COBOL program. When the procedures COB$IOEXCEPTION and COB$DBEXCEPTION cannot han¬ 
dle an error, they signal. That is, they call the Run-Time Library procedure LIBSSIGNAL and pass to it 
the condition value, which indicates the exception condition. LIB$SIGNAL scans the stack, frame by 
frame, starting at the top, and calls the condition handler for each frame. In this case, that handler is 
COB$HANDLER, which checks for several error conditions. For example, 
COB$HANDLER continues the search for a USE procedure and invokes it if it is present. It also 
checks for the reserved operand condition, SS$_ROPRAND. If this error occurred during execution of 
a CVTTP or CVTSP instruction, COB$HANDLER resignals the error as COB$_INVDECDAT, in order 
to give more specific information to the user. If it does not find any of specific conditions for which it 
checks, COB$HANDLER resignals, resulting in a search for a handler in the next stack frame. This 
process continues until all the active frames have been searched. Then the message is displayed and 
program execution stops. 


Note 

When COB$HANDLER searches the stack frame of a containing program, it checks 
that the condition handler for that frame is COB$HANDLER, in order to ensure that it 
is a COBOL frame. If you replace COB$HANDLER with another condition handler (by 
using LIB$ESTABLISH), the normal operation of COBOL error handling is disrupted, 
and the results are unpredictable. 

The following sections describe the COBOL Run-Time Library error handling procedures. For further 
information on the VAX Condition Handling Facility, see the VAX-11 Run-Time Library User's Guide , 
Chapter 6. 

COB$ERROR 


5.4.1 Signaling Errors Detected by Generated Code 

COB$ERROR supports the signaling of errors detected at run time. When the compiled code detects 
one of the following errors, it calls COB$ERROR, which returns the error message and calls 
LIB$STOP to stop program execution. 

Format CALL COB$ERROR (error.rl.v [,aux_info.rl.v]) 
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Arguments 


error 

The number of the error, passed by immediate value. 
aux_info 

Auxiliary information displayed for certain errors (see Messages), passed by immediate value. 

Messages 

COB$_CALFAI 

Failure in calling routine. In this case, aux—info is a longword containing the address of a descrip¬ 
tor. The descriptor points to the name of the routine that the program tried to call. 

COB$_ERRDURSOR 

Error during SORT or MERGE. Here, aux-info is the number of the SORT error. 
COB$_EXPDBOVER 

Expression value in data base argument overflows longword. 

COB$_FATINTERR 

Fatal internal error. In this case, this message means that not enough arguments were supplied to 
this routine. 

COB$_GOTNO_ALT 

GO TO with no preceding ALTER. 

COB$_INVARG 

Invalid argument. 

COB$_NESERRPER 

Nesting error during PERFORM. 

COB$_OCCDEPOVE 

Value given in an OCCURS DEPENDING clause overflows longword. 

COB$_RECACTPER 

Recursive activation of PERFORM. 

COB$_SUBOVELON 

Subscript overflows longword. 

COB$_TIMOVELON 

Value given in a TIMES clause overflows longword. 

COB$_UNEISNCON 

Lengths of character strings in an INSPECT CONVERTING statement are unequal. 

COB$HANDLER 


5.4.2 Default Handler for COBOL Error Conditions 

When presented with a specific signal, COB$HANDLER performs the following functions: 

• Interacts with COB$IOEXCEPTION or COB$DBEXCEPTION to execute the procedure specified in a 
USE statement. 
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• Resignals SS$_ROPRAND as COB$_INVDECDAT, if the error occurred during a CVTTP or CVTSP 
instruction. This gives the COBOL user more specific information than the general SS$_ROPRAND 
condition signal. 

• Resignals all other signals. 

For more information, see Section 5.4. 

Format ret-status.wlc.v = COB$HANDLER (signal.rr.r, mechanism.rr.r) 

Arguments 

signal 

A vector of longwords, passed by reference, that indicate the nature of the condition. This 
structure includes the 32—bit condition status code. 

mechanism 

A vector of longwords, passed by reference, that indicate the state of the process at the time of the 
signal. 

ret-status 

SS$_RESIGNAL 

Resignal same condition code, unless the opcode indicates that the error occurred during a 
CVTTP or CVTSP instruction. In this case, SS$_ROPRAND is changed to COB$_INVDECDAT 
and resignaled. 

SS$_CONTINUE 

Return to signaling procedure. This message is issued after control is returned from a USE 
procedure. 

Messages 

COB$_INVDECDAT 
Invalid decimal data. 

COB$IOEXCEPTION 


5.4.3 Handling I/O Exceptions 

COB$IOEXCEPTION processes a wide variety of I/O exceptions. Depending on the exception 
encountered, the procedure: 

• Updates the file status data item. 

• Causes specified USE procedures to be executed. 

• Signals error messages. 


Note 

Only code produced by a COBOL compiler uses COB$IOEXCEPTION. Its parameters 
are interconnected with data structures generated by the compiler. Do not try to 
imitate these structures or call COB$IOEXCEPTION explicitly. 

Format COB$IOEXCEPTION (flags.rl.v, rab.rr.r, [exclab.jzi.v], [status.ra.r]) 
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Arguments 


This parameter consists of two words, passed by immediate value: 

• The first word contains a code that specifies the type of COBOL I/O statement in which the 
error occurred, the type of file organization, and the file access mode. 

• The second word contains a code indicating the particular I/O exception. 


rab 

The RAB (Record Access Block) for the file, passed by reference, 
exclab 

Exception transfer label (optional), passed by immediate value, 
status 

Address of file status variable (optional), passed by reference. 

Implicit Outputs 

status 

Address of the file status variable (optional). 

Messages 

Every COBOL error message related to file I/O can be signaled by this routine. COB$IOEXCEPTION 
also displays the associated RMS status code when an error occurs. For a complete list of these 
messages, see the VAX-7 7 COBOL Language Reference Manual. 

OTS$_FATINTERR 

Fatal internal error. In this case, OTS$_FATINTERR means one of the following: 

• Invalid or insufficient arguments were supplied to COB$IOEXCEPTION 

• STS value = 0 

• Frame Pointer = 0 
COB$_LSTHNDUSE 

Lost the handler for a USE procedure. This message indicates that COB$HANDLER was deleted or 
replaced as the default condition handler, or that a handler was established that did not call 
COB$HANDLER, and that the COBOL environment is corrupted. 

COB$_INVARG 

Invalid argument. 

COB$DBEXCEPTION 


5.4.4 Handling Data Base Access Errors 

COB$DBEXCEPTION handles errors that occur when a COBOL program is accessing a data base. 
The procedure searches for a USE procedure to handle the error: 

1. If it finds a USE procedure defined in the local program, it invokes the procedure. 


Compiled-Code Support Procedures COB 49 



2. If it finds a USE procedure defined in a containing program, it signals the error. In this case, the 
VAX Condition Handling Facility invokes COB$HANDLER to handle the condition. 

3. If it does not find a USE procedure, it calls LIB$STOP to signal the condition and stop execution. 

Format COB$DBEXCEPTION (dbms-stat.rr.r) 

Arguments 

dbms-stat 

Signal argument vector, passed by reference. This parameter is the address of a block that con¬ 
tains the error and the condition value to be passed to LIB$SIGNAL. 

For a description of the signal argument vector, see the description of the $PUTMSG system 
service in the VAX /VMS System Services Reference Manual. 

In the case of COB$DBEXCEPTION, the signal argument vector, specified by the dbms-stat 
parameter, is structured as follows: 


31 16 15 0 


Number of longwords in block 


DBMS condition code (status) 


0 


FAO count (n) 


FAO argument 1 


FAO argument n 


NOTES 

• The first longword contains the number of longwords remaining in the block after the first. The 
number of longwords is n + 2. The maximum number of longwords in the dbms-stat block is 255. 

• The maximum number of FAO arguments (n) is 16. 

• This figure illustrates the case in which FAO arguments are present. If the condition code is an RMS 
status or a System Services status, there will be no FAO arguments, and the block will contain only 
the first two longwords. 

Messages 

COB$_LSTHNDLDB 

Lost handler for data base exception — environment corrupted. This message indicates that the 
address of COB$HANDLER was not found in the stack frame. 

OTS$_FATINTERR 
Fatal internal error. 
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5.5 External Switch Procedures 


The following sections describe Run-Time Library procedures that set, clear, and read external 
switches to support the VAX-11 COBOL SET switch-name statement. 


COB$SET—SWITCH 


5.5.1 Setting and Clearing External Switches 

COB$SET_SWITCH sets and clears external switches by allocating and deallocating the logical name 
COB$SWITCHES. 


ON 

Format SET { {switch-name} ... TO { } } ... 

OFF 

generates CALL COB$SET_SWITCH (set_mask.mlu.v, do_set.rlu.v) 

Arguments 

set_mask 

Bit mask of COB$SWITCHES, the switches to be set or cleared. Bits 0 to 1 5 correspond to 
external switches (switch-name) numbered 1 to 16. Passed by immediate value. 

do_set 

If this parameter has a value of one, the procedure sets the switches. Otherwise, it clears them. It 
is passed by immediate value. 


COB$SWITCH 


5.5.2 Reading External Switches 

COB$SWITCH reads external switches. It accepts the number of the switch in COB$SWITCHES (see 
Section 5.5.1) as its input parameter and returns the value of the specified switch as its function value. 

Format switch-value.wl.v = COB$SWITCH (number.rl.v) 


Arguments 

number 

Switch number, passed by immediate value. 


switch-value 

1 Switch is set 

0 Switch is cleared 
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COB$PAUSE 


5.6 STOP Literal Statement 

COB$PAUSE supports the STOP disp form of the VAX-11 COBOL STOP statement. The routine 
displays a string {disp) on the device specified by SYS$OUTPUT and then instructs the Command 
Language Interpreter to pause, putting the user back at command level without terminating the image. 

Format STOP disp 

generates ret-status.wlc.v = COB$PAUSE (message.rt.dxl) 

Arguments 

message 

The string {disp) to be output, passed by descriptor, 
ret-status 

Operating system completion status of the SYS$CLI pause function, passed by immediate value. 
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Appendix A 
Translation Tables 


Translation tables are included in the Run-Time Library to perform the following functions: 

• Conversions between ASCII and EBCDIC code 

• Conversions between trailing numeric and packed decimal data types 

• Execution of the SPANC instruction 

• De-editing numeric edited data items 


A.1 Conversions Between ASCII and EBCDIC Code 

To perform operations on data represented in EBCDIC code in a VAX-11 COBOL program, you must 
define the alphabet as EBCDIC in the ALPE1ABET clause of the SPECIAL-NAMES paragraph in the 
Environment Division. Once you have established the alphabet as EBCDIC, you can specify the use 
of this alphabet in the PROGRAM COLLATING SEQUENCE clause of the OBJECT-COMPUTER 
paragraph or in the CODE-SET clause of the FILE-CONTROL paragraph and the File Description. 

If the CODE—SET has been established as EBCDIC, the compiler translates files from EBCDIC to native 
ASCII code on input, and from ASCII to EBCDIC on output. Thus, a READ statement converts data in 
EBCDIC code from an external medium to internal ASCII code, and a WRITE statement converts 
ASCII to EBCDIC. 

If the PROGRAM COLLATING SEQUENCE has been set to EBCDIC, the compiler performs non¬ 
numeric comparisons using the EBCDIC sequence rather than the ASCII. 

The translation tables LIB$AB_ASC_EBC and LIB$AB_EBC_ASC support the conversions required by 
these operations. 


WARNING 

LIB$AB_ASC_EBC and LIB$AB_EBC_ASC are not reversible. If you translate an ASCII 
record that contains values outside of the range 0 to 128 into EBCDIC, and then 
translate the new record back to ASCII, you will not get an exact match. If your 
application has values in that range and you need reversibility, you should use 
LIB$AB_ASC_EBC_REV and LIB$AB_EBC_ASC_REV. The latter tables have unique 
countervalues for each translation. 
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A.1.1 LIB$AB-ASC_EBC 


Table COB-13 translates an ASCII string to an EBCDIC string, based on ANSI X3.26 - 1970. The 
table is in hexadecimal notation. 

Note 

All values greater than or equal to hexadecimal 80 translate to 3F, the EBCDIC substi¬ 
tution character, with the exception of FF. Currently, no ANSI standard exists for these 
translations. 

ASCII FF translates to EBCDIC FF in order to support the COBOL figurative constant 
HIGFH—VALUE(S). All ASCII characters are translated to their equivalent EBCDIC, with 
four exceptions. The following figure summarizes these exceptions: 


ASCII graphic 

EBCDIC graphic 

[ (left square bracket) 

! (exclamation point) 

(circumflex) 

] (right square bracket) 

cents sign 

short vertical bar 

logical NOT 

! (exclamation point) 


Table COB—13: ASCII to EBCDIC Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

0 

00 

10 

40 

F0 

7C 

D7 

79 

97 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

1 

01 

11 

4F 

FI 

Cl 

D8 

81 

98 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

2 

02 

12 

7F 

F2 

C2 

D9 

82 

99 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3 

03 

13 

7B 

F3 

C3 

E2 

83 

A2 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

4 

37 

3C 

5B 

F4 

C4 

E3 

84 

A3 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

5 

2D 

3D 

6C 

F5 

C5 

E4 

85 

A4 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

6 

2E 

32 

50 

F6 

C6 

E5 

86 

A5 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

7 

2F 

26 

7D 

F7 

C7 

E6 

87 

A6 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

8 

16 

18 

4D 

F8 

C8 

E7 

88 

A7 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

9 

05 

19 

5D 

F9 

C9 

E8 

89 

A8 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

A 

25 

3F 

5C 

7A 

D1 

E9 

91 

A9 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

B 

0B 

27 

4E 

5E 

D2 

4A 

92 

CO 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

C 

OC 

1C 

6B 

4C 

D3 

E0 

93 

6A 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

D 

0D 

ID 

60 

7E 

D4 

5A 

94 

DO 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

E 

0E 

IE 

4B 

6E 

D5 

5F 

95 

A1 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

F 

OF 

IF 

61 

6F 

D6 

6D 

96 

07 

3F 

3F 

3F 

3F 

3F 

3F 

3F 

FF 


Where: 

• The number on the left represents the low-order bits of the ASCII character in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the ASCII character in hexadecimal 
notation. 

• The number in the body of the table represents the equivalent EBCDIC character in hexadecimal 
notation. 
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A.1.2 LIB$AB_ASC_EBC—REV 


Table COB-14 translates an ASCII string to an EBCDIC string, based on ANSI X3.26 — 1970. The 
table is in hexadecimal notation. 

Note 

All values greater than or equal to hex 80 translate to unique values. Therefore, you 
could translate a file from ASCII to EBCDIC and back to the orginal ASCII values. 

ASCII FF translates to EBCDIC FF in order to support the COBOL figurative constant 
HIGH—VALUE(S). 

All ASCII characters are translated to their equivalent EBCDIC, with four exceptions. 

The following figure summarizes these exceptions: 


ASCII graphic 

EBCDIC graphic 

[ (left square bracket) 

! (exclamation point) 

(circumflex) 

] (right square bracket) 

cents sign 

short vertical bar 

logical NOT 

! (exclamation point) 


Table COB-14: ASCII to EBCDIC Reversible Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

0 

00 

10 

40 

F0 

7C 

D7 

79 

97 

20 

30 

41 

58 

76 

9F 

B8 

DC 

1 

01 

11 

4F 

FI 

Cl 

D8 

81 

98 

21 

31 

42 

59 

77 

A0 

B9 

DD 

2 

02 

12 

7F 

F2 

C2 

D9 

82 

99 

22 

1A 

43 

62 

78 

AA 

BA 

DE 

3 

03 

13 

7B 

F3 

C3 

E2 

83 

A2 

23 

33 

44 

63 

80 

AB 

BB 

DF 

4 

37 

3C 

5B 

F4 

C4 

E3 

84 

A3 

24 

34 

45 

64 

8A 

AC 

BC 

EA 

5 

2D 

3D 

6C 

F5 

C5 

E4 

85 

A4 

15 

35 

46 

65 

8B 

AD 

BD 

EB 

6 

2E 

32 

50 

F6 

C6 

E5 

86 

A5 

06 

36 

47 

66 

8C 

AE 

BE 

EC 

7 

2F 

26 

7D 

F7 

C7 

E6 

87 

A6 

17 

08 

48 

67 

8D 

AF 

BF 

ED 

8 

16 

18 

4D 

F8 

C8 

E7 

88 

A7 

28 

38 

49 

68 

8E 

B0 

CA 

EE 

9 

05 

19 

5D 

F9 

C9 

E8 

89 

A8 

29 

39 

51 

69 

8F 

B1 

CB 

EF 

A 

25 

3F 

5C 

7A 

D1 

E9 

91 

A9 

2A 

3A 

52 

70 

90 

B2 

CC 

FA 

B 

0B 

27 

4E 

5E 

D2 

4A 

92 

CO 

2B 

3B 

53 

71 

9A 

B3 

CD 

FB 

C 

OC 

1C 

6B 

4C 

D3 

E0 

93 

6A 

2C 

04 

54 

72 

9B 

B4 

CE 

FC 

D 

0D 

ID 

60 

7E 

D4 

5A 

94 

DO 

09 

14 

55 

73 

9C 

B5 

CF 

FD 

E 

OE 

IE 

4B 

6E 

D5 

5F 

95 

A1 

0A 

3E 

56 

74 

9D 

B6 

DA 

FE 

F 

OF 

IF 

61 

6F 

D6 

6D 

96 

07 

IB 

El 

57 

75 

9E 

B7 

DB 

FF 


Where: 

• The number on the left represents the low-order bits of the ASCII character in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the ASCII character in hexadecimal 
notation. 

• The number in the body of the table represents the equivalent EBCDIC character in hexadecimal 
notation. 
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A.1.3 LIB$AB_EBC-ASC 


Table COB—15 translates an EBCDIC string to an ASCII string, based on ANSI X3.26 - 1970. All 
EBCDIC characters are translated to their equivalent ASCII, with four exceptions. The following figure 
summarizes these exceptions: 


ASCII graphic 

EBCDIC graphic 

cents sign 

short vertical bar 

logical NOT 

! (exclamation point) 

I (left square bracket) 

! (exclamation point) 

(circumflex) 

] (right square bracket) 


Table COB-15: EBCDIC to ASCII Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

0 

00 

10 

5C 

5C 

20 

26 

2D 

5C 

5C 

5C 

5C 

5C 

7B 

7D 

5C 

30 

1 

01 

1 1 

5C 

5C 

5C 

5C 

2F 

5C 

61 

6A 

7E 

5C 

41 

4A 

5C 

31 

2 

02 

12 

5C 

16 

5C 

5C 

5C 

5C 

62 

6B 

73 

5C 

42 

4B 

53 

32 

3 

03 

13 

5C 

5C 

5C 

5C 

5C 

5C 

63 

6C 

74 

5C 

43 

4C 

54 

33 

4 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

64 

6D 

75 

5C 

44 

4D 

55 

34 

5 

09 

5C 

0A 

5C 

5C 

5C 

5C 

5C 

65 

6E 

76 

5C 

45 

4E 

56 

35 

6 

5C 

08 

17 

5C 

5C 

5C 

5C 

5C 

66 

6F 

77 

5C 

46 

4F 

57 

36 

7 

7F 

5C 

IB 

04 

5C 

5C 

5C 

5C 

67 

70 

78 

5C 

47 

50 

58 

37 

8 

5C 

18 

5C 

5C 

5C 

5C 

5C 

5C 

68 

71 

79 

5C 

48 

51 

59 

38 

9 

5C 

19 

5C 

5C 

5C 

5C 

5C 

60 

69 

72 

7A 

5C 

49 

52 

5A 

39 

A 

5C 

5C 

5C 

5C 

5B 

5D 

7C 

3A 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

B 

0B 

5C 

5C 

5C 

2E 

24 

2C 

23 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

C 

OC 

1C 

5C 

14 

3C 

2A 

25 

40 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

D 

0D 

ID 

05 

15 

28 

29 

5F 

27 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

E 

0E 

IE 

06 

5C 

2B 

3B 

3E 

3D 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

F 

OF 

IF 

07 

1A 

21 

5E 

3F 

22 

5C 

5C 

5C 

5C 

5C 

5C 

5C 

FF 


Where: 

• The number on the left represents the low-order bits of the EBCDIC character in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the EBCDIC character in hexadecimal 
notation. 

• The number in the body of the table represents the equivalent ASCII character in hexadecimal 
notation. 
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A.1.4 LIB$AB_EBC-ASC-REV 

Table COB-16 translates an EBCDIC string to an ASCII string, based on ANSI X3.26 - 1970. All 
non-EBCDIC characters are translated to unique values so it is possible to translate a file to ASCII and 
then back to EBCDIC and restore the original values. All EBCDIC characters are translated to their 
equivalent ASCII, with four exceptions. The following figure summarizes these exceptions: 


ASCII graphic 

EBCDIC graphic 

cents sign 

short vertical bar 

logical NOT 

! (exclamation point) 

[ (left square bracket) 

! (exclamation point) 

(circumflex) 

] (right square bracket) 


Table COB-16: EBCDIC to ASCII Reversible Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

- 7 






0 

1 

2 

3 

4 

5 

6 

7 

8 


A 

B 

C 

D 

E 

F 

0 

00 

10 

80 

90 

20 

26 

2D 

BA 

C3 

CA 

D1 

D8 

7B 

7D 

5C 

30 

1 

01 

11 

81 

91 

A0 

A9 

2F 

BB 

61 

6A 

7E 

D9 

41 

4A 

9F 

31 

2 

02 

12 

82 

16 

A1 

AA 

B2 

BC 

62 

6B 

73 

DA 

42 

4B 

53 

32 

3 

03 

13 

83 

93 

A2 

AB 

B3 

BD 

63 

6C 

74 

DB 

43 

4C 

54 

33 

4 

9C 

9D 

84 

94 

A3 

AC 

B4 

BE 

64 

6D 

75 

DC 

44 

4D 

55 

34 

5 

09 

85 

0A 

95 

A4 

AD 

B5 

BF 

65 

6E 

76 

DD 

45 

4E 

56 

35 

6 

86 

08 

17 

96 

A5 

AE 

B6 

CO 

66 

6F 

77 

DE 

46 

4F 

57 

36 

7 

7F 

87 

IB 

04 

A6 

AF 

B7 

Cl 

67 

70 

78 

DF 

47 

50 

58 

37 

8 

97 

18 

88 

98 

A7 

B0 

B8 

C2 

68 

71 

79 

E0 

48 

51 

59 

38 

9 

8D 

19 

89 

99 

A8 

B1 

B9 

60 

69 

72 

7A 

El 

49 

52 

5A 

39 

A 

8E 

92 

8A 

9A 

5B 

5D 

7C 

3A 

C4 

CB 

D2 

E2 

E8 

EE 

F4 

FA 

B 

0B 

8F 

8B 

9B 

2E 

24 

2C 

23 

C5 

CC 

D3 

E3 

E9 

EF 

F5 

FB 

C 

OC 

1C 

8C 

14 

3C 

2A 

25 

40 

C6 

CD 

D4 

E4 

EA 

F0 

F6 

FC 

D 

0D 

ID 

05 

15 

28 

29 

5F 

27 

C7 

CE 

D5 

E5 

EB 

FI 

F7 

FD 

E 

0E 

IE 

06 

9E 

2B 

3B 

3E 

3D 

C8 

CF 

D6 

E6 

EC 

F2 

F8 

FE 

F 

OF 

IF 

07 

1A 

21 

5E 

3F 

22 

C9 

DO 

D7 

E7 

ED 

F3 

F9 

FF 


Where: 

• The number on the left represents the low-order bits of the EBCDIC character in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the EBCDIC character in hexadecimal 
notation. 

• The number in the body of the table represents the equivalent ASCII character in hexadecimal 
notation. 
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A.2 Conversions Between Packed Decimal and Trailing Numeric 

For VAX-11 COBOL to perform arithmetic operations on data of the trailing numeric data type, the 
data must be converted to packed decimal, and the result must be converted back to trailing numeric 
in order to be stored in its destination location. The Run-Time Library provides translation tables for 
conversions between packed decimal and trailing overpunch, and between packed decimal and 
unsigned numeric. Because of the multiple representations for zero in trailing overpunch, the library 
also contains tables to translate trailing overpunch to unsigned and unsigned to trailing overpunch. 

A.2,1 LIB$AB—CVTPT—O 

The CVTPT machine instruction uses Table COB-17 to convert packed decimal data items to trailing 
overpunch numeric data type. The highest addressed byte of a data item in packed decimal form 
contains the least significant digit and sign. Given the hexadecimal representation of this byte, the 
table gives the hexadecimal representation of the highest addressed byte of the item in overpunch 
trailing numeric form. 


Table COB-17: Packed Decimal to Trailing Overpunch Numeric Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

0 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

1 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

2 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

3 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

4 

7 B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

5 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

6 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

; 7 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

8 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

9 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

7B 

A 

7B 

41 

42 

43 

44 

45 

46 

47 

48 

49 

7B 

7B 

7B 

7B 

7B 

7B 

B 

7 D 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

7B 

7B 

7B 

7B 

7B 

7B 

C 

7B 

41 

42 

43 

44 

45 

46 

47 

48 

49 

7B 

7B 

7B 

7B 

7B 

7B 

D 

70 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

7B 

7B 

7B 

7B 

7B 

7B 

E 

7 B 

41 

42 

43 

44 

45 

46 

47 

48 

49 

7B 

7B 

7B 

7B 

7B 

7B 

F 

7B 

41 

42 

43 

44 

45 

46 

47 

48 

49 

7B 

7B 

7B 

7B 

7B 

7B 


Where: 

• The number on the left represents the low-order bits of the packed decimal value in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the packed decimal value in hexadecimal 
notation. 

• The number in the body of the table represents the equivalent trailing overpunch numeric value in 
hexadecimal notation. 
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A.2.2 LIB$AB_CVTPT_U 


The CVTPT machine instruction uses Table COB-18 to convert packed decimal data items to un¬ 
signed trailing numeric data type. Given the hexadecimal representation for the highest addressed 
byte (that is, the least significant digit and sign) of a data item in the packed decimal data type, the 
table returns the hexadecimal representation of the highest addressed byte of the unsigned trailing 
numeric form of the data item. 


Table COB-18: Packed Decimal to Unsigned Trailing Numeric Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

F 

0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

2 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

3 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

4 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

5 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

6 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

A 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 

B 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 

C 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 

D 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 

E 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 

F 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

00 

00 

00 

00 

00 

00 


Where: 


• The number on the left represents the low-order bits of the packed decimal value in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the packed decimal value in hexa¬ 
decimal notation. 

• The number in the body of the table represents the equivalent unsigned trailing numeric value in 
hexadecimal notation. 
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A.2.3 LIB$AB—CVTTP—O 


The CVTTP machine instruction uses Table COB-19 to convert trailing overpunch numeric data items 
to packed decimal data type. Given the hexadecimal representation for the highest addressed byte 
(that is, the least significant digit and sign) of a trailing numeric data item in the overpunch data type, 
the table determines the hexadecimal representation of the highest addressed byte in the packed 
decimal version of the data item. 


Table COB-19: Trailing Overpunch Numeric to Packed Decimal Translation Table 


Row 

bits 0 — 3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

F 

0 

00 

00 

00 

oc 

00 

7D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1 

00 

00 

0D 

1C 

1C 

8 D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

2 

00 

00 

00 

2C 

2C 

9D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

3 

00 

00 

00 

3C 

3C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

4 

00 

00 

00 

4C 

4C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

5 

00 

00 

00 

5C 

5C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

6 

00 

00 

00 

6 C 

6 C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7 

00 

00 

00 

7C 

7C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8 

00 

00 

00 

8 C 

8 C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9 

00 

00 

00 

9C 

9C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

A 

00 

00 

00 

0D 

ID 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B 

00 

00 

00 

00 

2D 

0C 

00 

OC 

00 

00 

00 

00 

00 

00 

00 

00 

C 

00 

00 

00 

00 

3D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D 

00 

00 

00 

00 

4D 

0D 

00 

0D 

00 

00 

00 

00 

00 

00 

00 

00 

E 

00 

00 

00 

00 

5D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

F 

00 

00 

00 

00 

6 D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


Where: 

• The number on the left represents the low-order bits of the trailing overpunch numeric value in 
hexadecimal notation. 

• The number across the top represents the high-order bits of the trailing overpunch numeric value in 
hexadecimal notation. 

• The number in the body of the table represents the equivalent packed decimal value in hexa¬ 
decimal notation. 
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A.2.4 LIB$AB-CVTTP-U 


The CVTTP machine instruction uses Table COB—20 to convert unsigned numeric data items to 
packed decimal data type. Given the hexadecimal representation for the highest addressed byte (the 
least significant digit) in a trailing numeric data item in the unsigned data type, the table gives the 
hexadecimal representation for the highest addressed byte of the corresponding packed decimal form 
of the data item. 


Table COB-20: Unsigned Numeric to Packed Decimal Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

F 

0 

00 

00 

00 

oc 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1 

00 

00 

00 

1C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

2 

00 

00 

00 

2C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

3 

00 

00 

00 

3C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

4 

00 

00 

00 

4C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

5 

00 

00 

00 

5C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

6 

00 

00 

00 

6C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7 

00 

00 

00 

7C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

8 

00 

00 

00 

8C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

9 

00 

00 

00 

9C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

A 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

B 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

D 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

E 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

F 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


Where: 

• The number on the left represents the low-order bits of the unsigned numeric value in hexadecimal 
notation. 

• The number across the top represents the high-order bits of the unsigned numeric value in hexa¬ 
decimal notation. 

• The number in the body of the table represents the equivalent packed decimal value in hexa¬ 
decimal notation. 
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A.2.5 LIB$AB-CVT-0-U 


The MOVTC machine instruction uses Table COB-21 to translate a trailing overpunch numeric data 
item to unsigned numeric. Given the hexadecimal representation for the least significant digit and 
sign of a numeric string in its trailing overpunch form, the table gives the hexadecimal representation 
for the least significant digit of the corresponding unsigned numeric string. 


Table COB—21: Trailing Overpunch Numeric to Unsigned Numeric Translation Table 


Row 

bits 0-3 




Column 



bits 4 - 

- 7 






0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

0 

00 

10 

20 

30 

40 

37 

60 

70 

80 

90 

A0 

B0 

CO 

DO 

E0 

F0 

1 

01 

11 

30 

31 

31 

38 

61 

71 

81 

91 

A1 

B1 

Cl 

D1 

El 

FI 

2 

02 

12 

22 

32 

32 

39 

62 

72 

82 

92 

A2 

B2 

C2 

D2 

E2 

F2 

3 

03 

13 

23 

33 

33 

53 

63 

73 

83 

93 

A3 

B3 

C3 

D3 

E3 

F3 

4 

04 

14 

24 

34 

34 

54 

64 

74 

84 

94 

A4 

B4 

C4 

D4 

E4 

F4 

5 

05 

15 

25 

35 

35 

55 

65 

75 

85 

95 

A5 

B5 

C5 

D5 

E5 

F5 

6 

06 

16 

26 

36 

36 

56 

66 

76 

86 

96 

A6 

B6 

C6 

D6 

E6 

F6 

7 

07 

17 

27 

37 

37 

57 

67 

77 

87 

97 

A7 

B7 

C7 

D7 

E7 

F7 

8 

08 

18 

28 

38 

38 

58 

68 

78 

88 

98 

A8 

B8 

C8 

D8 

E8 

F8 

9 

09 

19 

29 

39 

39 

59 

69 

79 

89 

99 

A9 

B9 

C9 

D9 

E9 

F9 

A 

0A 

1 A 

2A 

30 

31 

5A 

6 A 

7A 

8 A 

9A 

AA 

BA 

CA 

DA 

EA 

FA 

B 

0B 

IB 

2B 

3B 

32 

30 

6 B 

30 

8 B 

9B 

AB 

BB 

CB 

DB 

EB 

FB 

C 

OC 

1C 

2C 

3C 

33 

5C 

6 C 

7C 

8 C 

9C 

AC 

BC 

CC 

DC 

EC 

FC 

D 

0D 

ID 

2D 

3D 

34 

30 

6 D 

30 

8 D 

9D 

AD 

BD 

CD 

DD 

ED 

FD 

E 

0E 

IE 

2E 

3E 

35 

5E 

6 E 

7E 

8 E 

9E 

AE 

BE 

CE 

DE 

EE 

FE 

F 

OF 

IF 

2 F 

30 

36 

5F 

6 F 

7F 

8 F 

9F 

AF 

BF 

CF 

DF 

EF 

FF 


Where: 

• The number on the left represents the low-order bits of the trailing overpunch numeric value in 
hexadecimal notation. 

• The number across the top represents the high-order bits of the trailing overpunch numeric value in 
hexadecimal notation. 

• The number in the body of the table represents the equivalent unsigned numeric value in hexa¬ 
decimal notation. 


A.2.6 LIB$AB_CVT—U—O 

Table COB—22 translates an unsigned numeric data item to a trailing overpunch data item. It is 
indexed by 0 through 9 for the positive overpunches and 1 0 through 1 9 for the negative overpunches. 
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The unsigned binary representation of the least significant digit is moved into R2. Then, if you require 
a positive result, the following code results: 

MOVC3 LIB$AB_CVT_U_0 [R2], #1, RO 

The result is the overpunch representation for the last byte of the positive number. 

If you require a negative result, the following code is generated: 

MOVC3 LIB$AB_CVT_U_0 + 10 [R2], #1, RO 

The result is the overpunch representation for the last byte of the negative number. 


Table COB-22: Unsigned Numeric to Trailing Overpunch Translation Table 


O'! 

1 

o 

10 - 19 

7 B 41 42 43 44 45 46 47 48 49 

7D 4A 4B 4C 4D 4E 4F 50 51 52 


A.3 The SPANC Instruction 


The SPANC (Span Characters) instruction is a machine instruction that skips a set of characters in a 
character string. It uses successive bytes of the source string to index a table. The AND operation is 
performed on two values: 

1. The byte selected from the table 

2. The mask operand 

The operation continues until the result of the AND is zero or until all the bytes of the string have 
been exhausted. If a zero result is detected, the condition code Z-bit is cleared; otherwise, the Z-bit 
is set. VAX-11 COBOL uses this instruction to perform class tests on data items. It checks to ensure 
that each item in a string is a member of a given class. The instruction can check for the following 
classes: 


• ALPHABETIC characters (A-Z, a-z, space) 

• Digits 

• Overpunch signs 

• Separate signs 

• Overpunch representations of zero 

• A byte representing a pair of digits 

• A byte representing a digit and a sign 
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COB$AB—SPANC 


The SPANC instruction generated by VAX-11 COBOL in compiled code uses Table COB—23. 

Bit 0: Valid ALPHABETIC characters (A-Z, a-z, space) 

Bit 1: Valid digits 

Bit 2: Valid overpunch signs 

Bit 3: Valid separate signs 

Bit 4: Valid overpunch representations of zero 

Bit 5: Valid pair of digit nibbles 

Bit 6: Valid digit nibble, sign nibble 


Table COB-23: SPANC Table 


Row 

bits 0-3 




Column 



bits 4 - 

7 






0 

1 

2 

3 

4 

5 

6 

7 

8 


D 

B 

c 


E 

D 

0 

20 

20 

21 

36 

20 

25 

20 

21 

20 

20 

00 

00 

00 

00 

00 

00 

1 

20 

20 

34 

26 

25 

25 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

2 

20 

20 

20 

26 

25 

25 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

3 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

4 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

5 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

6 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

7 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

8 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

9 

20 

20 

20 

26 

25 

21 

21 

21 

20 

20 

00 

00 

00 

00 

00 

00 

A 

40 

40 

40 

54 

45 

41 

41 

41 

40 

40 

00 

00 

00 

00 

00 

00 

B 

40 

40 

48 

40 

45 

54 

41 

54 

40 

40 

00 

00 

00 

00 

00 

00 

C 

40 

40 

40 

40 

45 

40 

41 

40 

40 

40 

00 

00 

00 

00 

00 

00 

D 

40 

40 

48 

40 

45 

54 

41 

54 

40 

40 

00 

00 

00 

00 

00 

00 

E 

40 

40 

40 

40 

45 

40 

41 

40 

40 

40 

00 

00 

00 

00 

00 

00 

F 

40 

40 

40 

54 

45 

40 

41 

40 

40 

40 

00 

00 

00 

00 

00 

00 
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COBSDEEDIT 


A.4 De-edit Table 

VAX—11 COBOL uses Table COB—24 to perform “de-editing.'' When a numeric edited source data 
item is being moved to a numeric or numeric edited destination data item, and there are floating 
characters or an implicit or explicit BLANK WHEN ZERO, compiled code uses the MOVTC instruc¬ 
tion. In order to execute this instruction, the code uses the following table to translate nondigits in the 
result to zeros. 

Given the hexadecimal representation for the character in the numeric or numeric edited character 
string, the table gives the resulting ASCII character. Thus, hexadecimal 31 through 39 translate to the 
characters 1 through 9, while all other values translate to the zero character. 

Table COB-24: De-edit Table 


Row 

bits 0-3 






Column 




bits 4 - 

- 7 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

A 

B 

c 

D 

E 

F 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6 

0 

0 

0 

6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

7 

0 

0 

0 

7 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

8 

0 

0 

0 

8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

9 

0 

0 

0 

9 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

A 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

B 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

C 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

D 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

E 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

F 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


Translation Tables COB 65 





April 1982 


This division contains descriptions of the VAX—11 FORTRAN—specific 
support procedures. It also contains information about calling and 
writing user programs that access these procedures. The material in this 
division is not introductory. 


VAX-11 

FORTRAN-Specific 
Support Procedures 




Contents 


Page 

Chapter 1 Using VAX-11 FORTRAN Support Procedures 

1.1 Introduction..FOR—1 

1.1.1 Data Types Supported.FOR-1 

1.1.2 Program Units.FOR-2 

1.2 Memory Classes.FOR-2 

1.2.1 Static Storage.FOR-2 

1.2.2 Stack Storage.FOR-2 

1.2.3 Fleap Storage.FOR-2 

1.3 Memory Layout.FOR—2 

1.4 Calling the VAX—11 FORTRAN—Specific Procedures.FOR—3 

1.5 Error Signaling by VAX-11 FORTRAN Library Procedures.FOR-3 

Chapter 2 File Processing Support 

2.1 File I/O Operation.FOR-6 

2.1.1 Example of FORTRAN I/O Compiled Code.FOR—6 

2.1.2 I/O List Initialization.FOR-6 

2.1.3 I/O List Element Transmission Procedures.FOR—8 

2.1.4 I/O List Termination Call.FOR-8 

2.2 Sequential I/O.FOR-8 

2.2.1 Formatted Sequential I/O.FOR—9 

2.2.2 List-Directed Sequential I/O.FOR-10 

2.2.3 NAMELIST Controlled Sequential I/O.FOR-11 

2.2.4 Unformatted Sequential I/O.FOR-11 

2.3 Indexed I/O.FOR-12 

2.3.1 Formatted Indexed I/O.FOR-1 3 

2.3.2 Unformatted Indexed I/O.FOR—14 

2.4 Direct I/O.FOR-14 

2.4.1 Formatted Direct I/O.FOR-1 5 

2.4.2 Unformatted Direct I/O.FOR—16 

2.5 Internal I/O.FOR-1 6 






























Chapter 3 Auxiliary I/O Support 

3.1 OPEN Statement.FOR—19 

3.2 CLOSE Statement.FOR-23 

3.3 INQUIRE Statement.FOR-23 

Chapter 4 Format Processing and Conversion 

4.1 Format Code Byte (FC).FOR-28 

4.2 Representation Size Byte.FOR-28 

4.3 Repeat Count (RC).FOR-28 

4.4 Field Width (W).FOR-28 

4.5 Decimal Width (D).FOR—29 

4.6 Exponent Width (E).FOR-29 

4.7 VFE Addresses.FOR-29 

4.8 Hollerith Formats.FOR-30 

4.9 Default Formats.FOR-30 

4.10 Convert Floating-Point to Text.FOR-32 

Chapter 5 Compiled-Code Support Procedures 

5.1 Array Support.FOR-35 

5.2 Bit Operations.FOR-37 

5.3 Lexical Comparisons.FOR-38 

5.4 PAUSE Statement.FOR-39 

5.5 STOP Statement.FOR—40 

5.6 Underflow Exception Handler.FOR—40 

5.7 Miscellaneous Code Support.FOR-41 

5.7.1 Return System Date as a String.FOR—41 

5.7.2 Return Month, Day, Year as INTEGER*2.FOR-42 

5.7.3 Return Month, Day, Year as INTEGER*4.FOR-42 

5.7.4 Return Last Error Information.FOR-43 

5.7.5 Return Control to the Operating System.FOR-43 

5.7.6 Return System Time in Seconds.FOR—44 

5.7.7 Return System Time as a String.FOR—44 

Figures 

FOR-1 Format Code Form.FOR-27 

Tables 

FOR-1 FORTRAN Program Units.FOR-2 

FOR—2 Default Logical Units for FORTRAN Statements.FOR—7 

FOR—3 Summary of Argument Types by OPEN Keywords.FOR—21 

FOR-4 Summary of Argument Types by INQUIRE Keywords.FOR-24 

FOR—5 Representation Size Byte Subfields.FOR—28 

FOR-6 Default Format Code Descriptor Values.FOR-30 

FOR—7 Compiled Format Codes.FOR—30 






































Chapter 1 

Using VAX-11 FORTRAN Support Procedures 


1.1 Introduction 

This division describes the FORTRAN—specific support procedures. It has five chapters. 

Chapter 1 explains how to use the FORTRAN-specific procedures. 

Chapter 2 describes the file I/O processing procedures. 

Chapter 3 describes the auxiliary I/O procedures, including OPEN, CLOSE, and INQUIRE. 
Chapter 4 describes the compiled format codes. 

Chapter 5 describes the miscellaneous compiled-code support procedures. 

The functional descriptions of the FORTRAN procedures are only cursory. Refer to the VAX—7 7 
FORTRAN Language Reference Manual and the VAX—7 7 FORTRAN User's Guide for more details. 

1.1.1 Data Types Supported 

VAX-11 FORTRAN supports these data types: 

• Byte (considered a signed integer by FORTRAN, passed as an unsigned byte by VAX/VMS) 

• Word (signed and unsigned) 

• Longword (signed and unsigned) 

• F_floating 

• D_floating 

• G_floating 

• H_floating 

• F_complex 

• D_complex 

• G_complex 

• ASCII text 

• ZEM (address of entry mask) 
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1.1.2 Program Units 

In this division, a procedure is a FORTRAN program unit. Table FOR—1 summarizes the types of 
program units supported by VAX—11 FORTRAN. 

Table FOR-1: FORTRAN Program Units 


Program Unit 

Defining Statements 

Control Transfer 
Method 

Function 

FUNCTION 

Function reference 


ENTRY 


Subroutine 

SUBROUTINE 

CALL statement 


ENTRY 



1.2 Memory Classes 

Memory is divided into three storage classes: static, stack, and heap. 

1.2.1 Static Storage 

Static storage is allocated when the program image is loaded. It remains in effect for the duration of 
the program's execution. All FORTRAN data storage is statically allocated. 

1.2.2 Stack Storage 

Stack storage is allocated by a procedure as needed on the process stack at run time. It is automati¬ 
cally deallocated when the procedure returns control to its caller. Stack storage cannot be allocated 
explicitly by FORTRAN users. 

1.2.3 Heap Storage 

A FORTRAN procedure can allocate heap storage, but it must be passed to another procedure as an 
array parameter. (See the VAX—7 7 Guide to Creating Modular Library Procedures.) 

1.3 Memory Layout 

The storage required by a FORTRAN program unit is allocated in contiguous areas called program 
sections (PSECTs). The FORTRAN compiler implicitly declares three PSECTs, named: 

• $CODE — This program section contains all executable code. 

• $PDATA — This program section contains all read-only data. 

• $LOCAL — This program section contains read/write data local to the program unit. 

In addition, each named COMMON block you declare causes allocation of a PSECT with the same 
name. If you declare an unnamed COMMON block, the corresponding PSECT is named $BLANK. 
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1.4 Calling the VAX-11 FORTRAN-Specific Procedures 

Each procedure requires a specific calling sequence, as shown in the format section of each proce¬ 
dure description in Chapters 2 through 5. A calling sequence takes the general form: 

• Call type 

• Library facility prefix (FOR$) 

• Procedure name 

• Parameter list 

A unique entry point name identifies each procedure. This name consists of the library facility prefix 
plus the procedure name (for example, FOR$INQUIRE). Parameters passed to a procedure must be 
coded in the order shown in the descriptions. Each parameter has four characteristics: access type, 
data type, passing mechanism, and parameter form (see the Entry Point Summary at the back of this 
manual). 

FORTRAN programs conform to the standard defined for VAX-11 procedure calls (see Appendix C of 
the VAX-7 7 Run-Time Library Reference Manual). This standard describes how arguments are passed, 
how function values are returned, and how procedures receive and return control. 

The arguments in the CALL statement must agree in number, order, and data type with the dummy 
arguments in the subprogram. They can be variables, arrays, array elements, substring references, 
constants, expressions, Hollerith constants, alternate return specifiers, or subprogram names. 

By default, FORTRAN uses the reference and descriptor mechanisms to pass arguments. The refer¬ 
ence mechanism is used to pass all numeric actual arguments: logical, integer, real, and complex. 
The descriptor mechanism is used to pass all character actual arguments. 

1.5 Error Signaling by VAX-11 FORTRAN Library Procedures 

Error signaling consists of a call to either of the two system-supplied signal procedures: 

CALL LIB$SIGNAL (condition-value, arg, ...) 

CALL LIB$STOP (condition-value, arg, ...) 

You can signal a condition when you do not want to handle that condition in the current routine, but 
wish to pass the information to a higher-level routine. If the current procedure can continue after the 
signal, call LIB$SIGNAL. A higher-level procedure can then determine whether program execution 
continues. If the condition does not allow the current procedure to continue, call LIB$STOP. 

To pass the condition value, use the %VAL argument list built-in function. Condition values are 
usually expressed as condition symbols. For example: 

CALL LIB$SIGNAL ( XV AL(FOR$.INCOPECLO)) 

You can include additional arguments to provide supplementary information about the error. 

When you call a signal procedure, it searches for a condition handler by examining the preceding 
stack frames in order, until it either finds a procedure that handles the condition or reaches the default 
condition handler. 

See the VAX-7 7 FORTRAN User's Guide for a discussion of error processing and condition handlers. 
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Chapter 2 

File Processing Support 


This chapter describes the language support procedures that implement the FORTRAN file processing 
statements. The I/O statements supported by these procedures are READ, WRITE, REWRITE, 
BACKSPACE, ENDFILE, REWIND, DELETE, UNLOCK, ACCEPT, TYPE, and PRINT. Chapter 3 de¬ 
scribes OPEN, CLOSE, and INQUIRE. 

File operations fall into the following categories: 

• Sequential unformatted (SU) 

• Sequential formatted (SF) 

• Sequential run-time (object-time) formatted (SO) 

• Sequential list-directed (SL) 

• Sequential NAMELIST controlled (SN) 

• Direct access unformatted (DU) 

• Direct access formatted (DF) 

• Direct run-time (object-time) formatted (DO) 

• Indexed unformatted (KU) 

• Indexed formatted (KF) 

• Indexed run-time (object-time) formatted (KO) 

• Internal formatted (IF) 

• Internal run-time (object-time) formatted (IO) 

• Memory formatted (MF) 

• Memory run-time (object-time) formatted (MO) 
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2.1 File I/O Operation 

File-oriented I/O operations performed on a logical unit consist of the following: 

• An OPEN statement (optional) 

• A series of I/O statements 

• A CLOSE statement (optional) 

Each I/O statement has an I/O list that tells RMS which records to access. Each list consists of the 
following calls to FORTRAN-support procedures: 

• An I/O list initialization call 

• I/O list element transmission calls (if any) 

• An I/O list termination call 

2.1.1 Example of FORTRAN I/O Compiled Code 

The following FORTRAN statements define an array (A) of floating-point values and then read an 
integer value (I), the array (A), and a floating-point value (B). 

DIMENSION A(10) 

READ (2) I »A 

The preceding FORTRAN statements are compiled as: 


PUSHL 

#2 

CALLS 

#1 ,F0R$READ_SU 

PUSHAL 

I ( R 1 1 ) 

CALLS 

#1*F0R$I0_L_R 

PUSHAF 

$ L 0 C A L + "‘ X 3 0 ( R 1 : 

CALLS 

#1 * F0R$I□_ X _ DA 

PUSHAF 

B 

CALLS 

#1»F0R$I0 _ F _ R 

CALLS 

#0 *F0R$I0 _ END 


un i t num her 
initialize READ 
sequential unf o rinatte d 
address of I 
transmit integer 
address of A 
transmit array A 
address of B 
transmit floating 
terminate I/O list 


The following subsections describe the I/O list processing procedures in detail. 


2.1.2 I/O List Initialization 

The language support routines maintain the FORTRAN I/O data by using a software simulated stack. 
The I/O initialization procedures perform the following operations: 

1. They initialize the record processing storage and control block for the specified logical unit 
number. If an I/O statement is being processed on another logical unit, it is pushed down by 
linking the control blocks. It is popped back at the end of this I /O statement (see FOR$IO_END). 
This type of recursion occurs if: 

• An AST interrupt routine performs I/O. 

• A function call in an I/O list performs I/O. 

•A user condition handler performs FORTRAN I/O (or calls a procedure that performs 
FORTRAN I/O) when an I/O error has been signaled. 
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Recursion on the same logical unit generates an error: FOR$_RECIO_OPE ('recursive I/O 
operation'). 

An I/O list initialization call sets up the logical unit for the specific request and declares the 
logical unit to be active. If this unit is not currently open, RMS performs a default open with 
dynamic allocation of buffers and control blocks. Each control block contains such information 
as the record size, the unit number, and a pointer to the RAB. 

Depending on the type of I/O statement, the following keywords are used in the default open: 


Keyword 

Default Open Attribute 

ACCESS = 

STATUS= 

FORM = 

ORGANIZATION = 

'SEQUENTIAL', 'DIRECT' 

'NEW' (writes), 'OLD' (reads) 

'FORMATTED', 'UNFORMATTED' 

'SEQUENTIAL' (always) 


2. They also check whether a file is open on the specified unit. When the first I/O operation is 
performed on a logical unit numbered 5 or 6, or on a unit associated with an ACCEPT, TYPE, 
READ, or PRINT statement, the Run-Time Library code first attempts to translate the 
FORTRAN-specific logical name (for example, FOR$PRINT). If a translation exists, the file is 
opened using that logical name as the file name. If no translation exists, a default logical name of 
SYS$INPUT or SYS$OUTPUT, as listed in table FOR—2, is used instead. For all other units, no 
substitution is attempted. Thus you can change the source or destination of I/O in your program 
by assigning a logical name to a specific file name, without having to modify the program source. 

Table FOR-2 lists FORTRAN statements, the corresponding FORTRAN-specific logical name 

(FAB$I_FNA), the default file name (FAB$I_DNA), and the number of the associated logical 

unit. 

3. They save the "END = " and "ERR = " addresses, if present. 

4. They compile the format statement, if it was not precompiled. 

5. They prepare for the element transmission calls, if needed. 


Table FOR-2: Default Logical Units for FORTRAN Statements 


Statement 

Name 

Compiler- 

Generated 

Unit 

FORTRAN 

Default 

Logical 

Name 

FORTRAN 

Default 

File Name 

System 

Default 

Logical 

Name 

PRINT 

-1 

FOR$PRINT 

FORPRINT.DAT 

SYS$OUTPUT 

TYPE 

-2 

FOR$TYPE 

FORTYPE.DAT 

SYS$OUTPUT 

ACCEPT 

-3 

FOR$ACCEPT 

FORACCEPT.DAT 

SYS$INPUT 

READ 

-4 

FOR$READ 

FORREAD.DAT 

SYS$INPUT 

Any on 
unit 5 


FOR005 

FOR005.DAT 

SYSSINPUT 

Any on 
unit 6 


FOR006 

FOR006.DAT 

SYS$OUTPUT 

All othiers 

nnn 

FORnnn 

FORnnn.DAT 

— 

where nnn is 

in the range 000 through 119. 
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FOR$IO-d-m 


2.1.3 I/O List Element Transmission Procedures 

Each entity in an I/O list calls the necessary language support procedure, FOR$IO_d_m. Each call 
transmits a single value except when entire arrays are transmitted. There may be any number of I/O 
element transmission calls between the initialization and termination call. 

D represents the data type of the transmitted element and m specifies the passing mechanism. 

generates CALL FOR$IO_d_m (element.xx.x) 

Arguments 

element 

A scalar quantity, array, or character string depending on c/_m as follows: 

• Scalar by value — d_m = {B, W, L, WU, LU, F, D, G, H, FC, DC, or GC}_V 

• Scalar by reference — d_m = {B, W, L, WU, LU, F, D, G, H, FC, DC, or GC}_R 

• Array by descriptor — d_m = X_DA 

• Implied-DO lists by descriptor — d_m = X_SB, X_NL 

• String by descriptor — d_m = T_DS, T_V_DS 


FOR$IO—END 

2.1.4 I/O List Termination Call 

This call completes the I/O operation. A VAX-11 RMS $PUT or $UPDATE is performed for output, if 
necessary. If another logical unit had been pushed on the stack, it is now popped off. 

generates CALL FOR$IO-END 

FOR$BACKSPACE 
2.2 Sequential I/O 

Each sequential I/O procedure sets up the I/O data base for the unit number (if necessary) and then 
calls an inner level routine that interfaces with RMS. When control returns to the calling program, the 
I/O data base is removed from the active I/O stack. 

FOR$BACKSPACE repositions a sequential file open for sequential access to the beginning of the 
preceding record. 

FOR$ENDFILE writes an end-file record to the specified logical unit. 

FOR$REWIND repositions a sequential file currently open for sequential or append access to the 
beginning of the file. 
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Format 

BACKSPACE (u [,err] [.iostat]) 


BACKSPACE u 

generates 

CALL iostat.wl.v = FOR$BACKSPACE (unit.rlu.v [,err-eql.rl.v]) 

Format 

ENDFILE (u [,err] [.iostat]) 


ENDFILE u 

generates 

CALL iostat.wl.v = FOR$ENDFILE (unit.rlu.v [,err-eql.rl.v]) 

Format 

REWIND (u [,err] [.iostat]) 


REWIND u 

generates 

CALL iostat.wl.v = FOR$REWIND (unit.rlu.v [,err-eql.rl.v]) 


Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
err-eql 

An error flag. If set to one, the return value of the procedure is the VAX-11 condition value. If set 
to two, the return value is the FORTRAN IOSTAT value. If omitted or zero, all errors are signaled. 
Passed by immediate value. 

iostat 

A longword integer value that is positive if an error occurs, and zero if not. Passed by immediate 
value. 

Note 

FOR$REWIND, FOR$BACKSPACE, or FOR$ENDFILE must not be called for a file that 
is open for direct or keyed access. 


FOR$READ-Sx 
FOR$WRITE—Sx 


2.2.1 Formatted Sequential I/O 

FOR$READ_SF and FOR$READ_SO initialize the I/O system to execute a formatted sequential 
access READ statement. The FOR$READ_SO format string is compiled at run time. 

FOR$WRITE_SF and FOR$WRITE_SO initialize the I/O system to execute a formatted sequential 
access WRITE statement. The FOR$WRITE_SO format string is compiled at run time. 

Format READ f [.list] 

READ (extu, fmt [,iostat] [,err] [,end]) [list] 

generates CALL FOR$READ_SF (unit.rlu.v, format.mbu.ra [,err-adr.j.r [,end-adr.j.r]]) 

CALL FOR$READ_SO (unit.rlu.v, ot-format.rt.r [,err-adr.j.r [,end-adr.j.r]]) 


Format WRITE (extu, fmt [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_SF (unit.rlu.v, format.mbu.ra [,err-adr.j.r [,end-adr.j.r]]) 
CALL FOR$WRITE_SO (unit.rlu.v, ot-format.rt.r [,err-adr.j.r [,end-adr.j.r]]) 
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Arguments 


unit 

The specified logical unit (extu). Passed by immediate value, 
format 

A precompiled unsigned logical byte array (see Chapter 4). Passed by reference, 
ot-format 

A format string that is compiled at run time. Passed by reference, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference. 


list 

See Section 2.1.3 for discussion on element transmitters. 


FOR$READ-SL 

FOR$WRITE-SL 


2.2.2 List-Directed Sequential I/O 


FOR$READ_SL 

statement. 

initializes 

the 

I/O 

system 

to execute a list-directed 

sequential 

access READ 

FOR$WRITE_SL 

initializes 

the 

I/O 

system 

to execute a list-directed 

sequential 

access WRITE 


statement. 

Format READ *[, list] 

READ (extu, * [,err] [,end]) [list] 

generates CALL FOR$READ_SL (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 


Format WRITE (extu, * [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_SL (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit (extu). Passed by immediate value, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference, 
list 

See Section 2.1.3 for explanation of element transmitters. 
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FOR$READ-SN 
FOR$WRITE—SN 


2.2.3 NAMELIST Controlled Sequential I/O 

The NAMELIST statement and the associated forms of I/O statements provide a simplified means of 
transmitting lists of data to and from files. The list of items which can be transferred is specified in a 
NAMELIST statement. The associated I/O statement includes the name of the NAMELIST as a control 
parameter. (See the VAX -11 FORTRAN Language Reference Manual for more information.) 

FOR$READ_SN initializes the I/O system to execute a NAMELIST controlled sequential access READ 
statement. 

FOR$WRITE_SN initializes the I/O system to execute a NAMELIST controlled sequential access 
WRITE statement. 

Format READ ([UNIT = ]u, [NML = ]N [,ERR = LI] [,END = L2] [,IOSTAT = ios]) 

READ N 
ACCEPT N 

generates CALL FOR$READ_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r [,end-adr.j.r]]) 


Format WRITE ([UNIT = ]u, [NML = ]N [,ERR = L1] [,IOSTAT = ios]) 

PRINT N 
TYPE N 

generates CALL FOR$WRITE_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r]) 

Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
namelist 

The address of the NAMELIST descriptor block (N). Passed by reference, 
err-adr 

The address of the next statement (LI) to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement ( L2) to be executed if an end-of-file occurs. Passed by reference. 


FOR$READ—SU 
FOR$WRITE-SU 

2.2.4 Unformatted Sequential I/O 

FOR$READ_SU initializes the I/O system to execute an unformatted sequential access READ 
statement. 

FOR$WRITE_SU initializes the I/O system to execute an unformatted sequential access WRITE 
statement. 
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Format READ (extu [,iostat] [,err] [,end]) [list] 

generates CALL FOR$READ_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Format WRITE (extu [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit {extu). Passed by immediate value, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference, 
list 

See Section 2.1.3 for explanation of element transmitters. 

FOR$DELETE 

FOR$UNLOCK 

2.3 Indexed I/O 

FOR$DELETE deletes the current record of the indexed or relative organization file open on the 
specified logical unit. (See Section 2.4 for a description of FOR$DELETE_D.) 

FOR$UNLOCK frees a locked record on the specified logical unit. 

Format DELETE (u [,err] [,iostat]) 

generates CALL iostat.wl.v = FORSDELETE (unit.rlu.v [,err-eql.rlu.v]) 

Format UNLOCK (u [,err] [,iostat]) 

generates CALL iostat.wl.v = FOR$UNLOCK (unit.rlu.v [,err-eql.rlu.v]) 

Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
iostat 

A longword integer value that is positive if an error occurs, and zero if not. Passed by immediate 
value. 

err-eql 

An error flag. If set to one, the value of the error (if any) is returned in IOSTAT. If zero or omitted, 
all errors are signaled. Passed by immediate value. 
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FOR$READ_Kx 

FOR$REWRITE_Sx 


2.3.1 Formatted Indexed I/O 


FOR$READ_KF and FOR$READ_KO initialize the I/O system to execute a formatted indexed access 
READ statement. The FOR$READ_KO format string is compiled at run time. 

FOR$REWRITE_SF and FOR$REWRITE_SO initialize the I/O system to execute a formatted indexed 
access REWRITE statement. The FOR$REWRITE_SO format string is compiled at run time. 

Format READ (extu, fmt, key [,key-id] [,iostat] [,err] [,end]) [list] 

generates CALL FOR$READ_KF (unit.rlu.v, format.mbu.ra, key.rx.dx, key-id.rl.v, match.rl.v 
[,err-adr.j.r [,end-adr.j.r]]) 

CALL FOR$READ_KO (unit.rlu.v, ot-format.rt.r, key.rx.dx, key-id.rl.v, match.rl.v 
[,err-adr.j.r [,end-adr.j.r]]) 


Format REWRITE (extu, fmt [,iostat] [,err]) [list] 

generates CALL FOR$REWRITE_SF (unit.rlu.v, format.mbu.ra [,err-adr.j.r [,end-adr.j.r]]) 
CALL FOR$REWRITE_SO (unit.rlu.v, ot-format.rt.r [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit {extu). Passed by immediate value, 
format 

A precompiled unsigned logical byte array. (See Chapter 4.) Passed by reference, 
ot-format 

A format string that is compiled at run time. Passed by reference. 


key 

The key string. Passed by descriptor, 
key-id 

The key number. If key-id is —1, the key-id from the previous indexed READ on this unit is used. 
Passed by immediate value. 

match 

A longword integer value that contains the code for matching the key (EQL, GEQ, GTR). The 
values are zero (EQL), one (GEQ), and two (GTR). Passed by immediate value. 

err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference. 


list 

See Section 2.1.3 for explanation of element transmitters. 
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FOR$READ-KU 

FOR$REWRITE_SU 


2.3.2 Unformatted Indexed I/O 

FOR$READ_KU initializes the I/O system to execute an unformatted indexed access READ 
statement. 

FOR$REWRITE_SU initializes the I/O system to execute an unformatted indexed access REWRITE 
statement. 

Format READ (extu, key [,key-id] [,iostat] [,err]) [list] 

generates CALL FOR$READ_KU (unit.rlu.v, key.rx.dx, key-id.rl.v, match.rl.v [,err-adr.j.r 
[,end-adr.j.r]]) 

Format REWRITE (extu [,iostat] [,err] [list] 

generates CALL FOR$REWRITE_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit (extu). Passed by immediate value, 
key 

The key string. Passed by descriptor, 
key-id 

The key number. If key-id .is —1, the key-id from the previous indexed READ on this unit is used. 
Passed by immediate value. 

match 

A longword integer value that contains the code for matching the key (EQL, GEQ, GTR). The 
values are zero (EQL), one (GEQ), and two (GTR). Passed by immediate value. 

err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference, 
list 

See Section 2.1.3 for explanation of element transmitters. 

FOR$DELETE-D 
2.4 Direct I/O 

Each direct I/O procedure sets up the I/O data base for the unit number (if necessary) and then calls 
an inner level that interfaces with RMS. When control returns to the calling program, the I/O data 
base is removed from the active I/O stack. 
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FOR$DELETE_D deletes the specified record on a relative organization file opened for direct access. 


Format DELETE (u,REC = r [,ERR = s] [,IOSTAT = ios]) 

DELETE (u’r [,ERR = s] [,IOSTAT = ios]) 

generates CALL iostat.wl.v = FOR$DELETE_D (unit.rlu.v.rec-num.rl.v [,err-eql.rlu.v]) 

Arguments 

unit 

The specified logical unit (u). Passed by immediate value, 
rec-num 

The particular record number. Passed by immediate value, 
err-eql 

An error flag. If set to one, the value of the error (if any) is returned in IOSTAT. If omitted or zero, 
all errors are signaled. Passed by immediate value. 


FOR$READ-Dx 

FOR$WRITE-Dx 


2.4.1 Formatted Direct I/O 

FOR$READ_DF and FOR$READ_DO initialize the I/O system to execute a formatted direct access 
READ statement. The FOR$READ_DO format string is compiled at run time. 

FOR$WRITE_DF and FOR$WRITE_DO initialize the I/O system to execute a formatted direct access 
WRITE statement. The FOR$WRITE_DO format string is compiled at run time. 

Format READ (extu, rec, fmt [,iostat] [,err]) [list] 

generates CALL FOR$READ_DF (unit.rlu.v, rec-num.rl.v, format.mbu.ra [,err-adr.j.r 
[,end-adr.j.r]]) 

CALL FOR$READ_DO (unit.rlu.v, rec-num.rl.v, ot-format.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Format WRITE (extu, rec, fmt [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_DF (unit.rlu.v, rec-num.rl.v, format.mbu.ra [,err-adr.j.r 
[,end-adr.j.r]]) 

CALL FOR$WRITE_DO (unit.rlu.v, rec-num.rl.v, ot-format.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit (extu). Passed by immediate value, 
rec-num 

The specified record number. Passed by immediate value, 
format 

A precompiled unsigned logical byte array. (See Chapter 4.) Passed by reference. 
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ot-format 

A format string that is compiled at run time. Passed by reference, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file error occurs. Passed by 
reference. 

FOR$READ-DU 
FOR$WRITE—DU 


2.4.2 Unformatted Direct I/O 

FOR$READ_DU initializes the I/O system to execute an unformatted direct access READ statement. 

FOR$WRITE_DU initializes the I/O system to execute an unformatted direct access WRITE 
statement. 

Format READ (extu, rec [.iostat] [,err]) [list] 

generates CALL FOR$READ_DU (unit.rlu.v, rec-num.rl.v [,err-adr.j.r [,end-adr.j.r]]) 

Format WRITE (extu, rec [,iostat] [,err] [list] 

generates CALL FOR$WRITE_DU (unit.rlu.v, rec-num.rl.v [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

unit 

The specified logical unit (extu). Passed by immediate value, 
rec-num 

The specified record number. Passed by immediate value, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference. 

FOR$READ-lx 
FOR$WRITE—lx 

2.5 Internal I/O 

FOR$READ_IF and FOR$READ_IO initialize the I/O system to execute a formatted internal READ 
statement. The FOR$READ_IO format string is compiled at run time. 

FOR$WRITE_IF and FOR$WRITE_IO initialize the I/O system to execute a formatted internal WRITE 
statement. The FOR$WRITE_IO format string is compiled at run time. 
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Format READ (intu, fmt [,iostat] [,err] [,end]) [list] 

generates CALL FOR$READ_IF (user-vbl.rt.dx, format.mbu.ra [,err-adr.j.r [,end-adr.j.r]]) 

CALL FOR$READ_IO (user-vbl.rt.dx, ot-format.rt.r [,err-adr.j.r [,end-adr.j.r]]) 

Format WRITE (intu, fmt [,iostat] [,err]) [list] 

generates CALL FOR$WRITE_IF (user-vbl.rt.dx, format.mbu.ra [,err-adr.j.r [,end-adr.j.r]]) 

CALL FOR$WRITE_IO (user-vbl.rt.dx, ot-format.rt.r [,err-adr.j.r [,end-adr.j.r]]) 

Arguments 

user-vbl 

The input string. The string represents a character variable, character array, character array ele¬ 
ment, or character substring. Passed by descriptor. 

format 

A precompiled unsigned logical byte array. (See Chapter 4.) Passed by reference, 
ot-format 

A format string that is compiled at run time. Passed by reference, 
err-adr 

The address of the next statement to be executed if an I/O error occurs. Passed by reference, 
end-adr 

The address of the next statement to be executed if an end-of-file occurs. Passed by reference. 
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Chapter 3 

Auxiliary I/O Statement Support 


The VAX-11 FORTRAN auxiliary I /O statements perform file management functions. These functions 
include: 

• OPEN — associates FORTRAN logical units with files. OPEN establishes a connection between 
a logical unit and a file or device. It also declares the attributes required for read and write 
operations. 

• CLOSE — terminates the connection between a logical unit and a file or device. 

• INQUIRE — returns the current values of selected properties of a file or logical unit. 

FOR$OPEN 


3.1 OPEN Statement 

FOR$OPEN opens a file on the specified logical unit with attributes determined by the keyword 
parameters. Three control blocks are then allocated for subsequent I/O statement calls to this logical 
unit. 

The three control blocks are: 

• Logical Unit Block (LUB) 

• I/O Statement Block (ISB) 

• VAX-11 RMS Record Access Block (RAB) 

Finally, an RMS $OPEN and an RMS $CONNECT are performed, and a record buffer is allocated for 
the logical unit. 

Format OPEN (par [,par] ... ) 

generates CALL FOR$OPEN (keywd.rlu.v [,info.rlu.v] [,keywd1 .rlu.v [,info1 .rlu.v] [,... [,...]]]) 
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Arguments 

keywd 

The user-specified keyword. Passed by immediate value. The keywd format is: 


31 


16 15 


INFOWD or 0 


ARGTYPE 


KEY 


where: 

KEY is a keyword identification number. 

ARGTYPE specifies the form of information and whether it is contained in the INFOWD field or 

the next argument list entry. If ARGTYPE specifies that INFOWD contains the associ¬ 
ated information, then FOR$OPEN interprets the following argument list entry as the 

next KEYWD. 

The ARGTYPE values are: 

0 No keyword value exists and INFOWD is ignored. 

1 Keyword value is a character constant decodable by the compiler. INFOWD 
contains the keyword value encoded as a small integer. 

2 Keyword value is an INTEGER*2 constant expression. INFOWD contains the 
word value that is sign-extended to form a 32-bit value. 

3 Keyword value is an INTEGER*2 value. The next argument list entry contains the 
address of the word value that is sign-extended to form a 32—bit value. 

4 Keyword value is an INTEGER*4 constant expression. The next argument list 
entry contains the longword value. 

5 Keyword value is an INTEGER*4 value. The next argument list entry contains the 
address of the longword value. 

6 Keyword value is a variable, array, array element, or character constant termi¬ 
nated by an ASCII null character (zero-byte). The next argument list entry con¬ 
tains the address of the first byte of the value. This form is only for compatibility 
with 16-bit PDP-11 FORTRAN and should not be used for new applications. A 
CHARACTER string is more convenient. 

7 Keyword value is a CHARACTER string. The next argument list entry contains the 
address of the string descriptor. If the string is a variable's name, the actual 
keyword value is obtained at run time. 

8 Keyword value is a procedure name. The next parameter list entry contains the 
address of the procedure entry mask. 

9 Keyword value is a series of key specifications for an indexed file. Each specifi¬ 
cation consists of three longwords that define one key of an indexed file. The first 
triplet defines the primary key (key 0). The second triplet defines the first alter¬ 
nate key (key 1) and so on. The low byte of the first longword in each triplet 
contains the data type of the key, either INTEGER (DSC$K_DTYPE_L or 
DSC$K_DTYPE_W) or CHARACTER (DSC$K_DTYPE_T). If the data type is 
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DSC$K_DTYPE_W, the key size must be two bytes. If the data type is 
DSC$K_DTYPE_L, the key size must be two or four bytes; if two, the data type is 
assumed INTEGER*2. If the data type is DSC$K_DTYPE_T, the key size must be 
less than 256 bytes. 

The second longword contains the first byte position of the key. The third long- 
word contains the last byte position of the key. INFOWD contains the count of 
additional longwords in the list and must be a multiple of three. The format for a 
two-key list is: 


23 


Must be zero 


DTYPEO 


Address of first byte of Key 0 


Address of last byte of Key 0 


Must be zero 


DTYPE1 


Address of first byte of Key 1 


Address of last byte of Key 1 


INFOWD is the keyword value, or the count of additional longwords that make up the key¬ 
word value. 


info 

Additional information if more than sixteen bits are needed to define the keyword value. Passed 
by immediate value. 

The allowable argument types for each OPEN statement keyword are summarized in Table FOR-3. 

Table FOR-3: Summary of Argument Types by OPEN Statement Keyword 


Keyword 

Name 

KEY 

ARGTYPE 

Value 

Character 

Values 

INFOWD 

Encoding 

ACCESS 

4 

1,7 

DIRECT 

1 




SEQUENTIAL 

2 




APPEND 

3 




KEYED 

4 

ASSOCIATEVARIABLE 

17 

3,5 



BLANK 

24 

1,7 

ZERO 

1 




NULL 

2 

BLOCKSIZE 

18 

2,3,4,5 



BUFFERCOUNT 

9 

2,3,4,5 



CARRIAGECONTROL 

7 

1,7 

FORTRAN 

1 




LIST 

2 




NONE 

3 


(continued on next page) 
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Table FOR-3: Summary of Argument Types by OPEN Statement Keyword (Cont.) 


Keyword 

Name 

KEY 

ARGTYPE 

Value 

Character 

Values 

* DEFAULTFILE 

26 

6,7 


DISP or DISPOSE 

2 

1,7 

SAVE 

DELETE 

PRINT 

SUBMIT 

PRINT/DELETE 

SUBMIT/DELETE 

ERR 

3 

0* 


EXTENDSIZE 

11 

2,3,4,5 


FILE or NAME 

14 

6,7 


FORM 

5 

1,7 

FORMATTED 

UNFORMATTED 

INITIALSIZE 

10 

2,3,4,5 


IOSTAT 

22 

3,5 


KEY 

23 

9 


MAXREC 

16 

2,3,4,5 


NOSPANBLOCKS 

12 

0 


ORGANIZATION 

19 

1,7 

SEQUENTIAL 

RELATIVE 

INDEXED 

READONLY 

8 

0 


RECL or RECORDSIZE 

6 

2,3,4,5 


RECORDTYPE 

20 

1,7 

FIXED 

VARIABLE 

SEGMENTED 

SHARED 

13 

0 


STATUS or TYPE 

15 

1,7 

OLD 

NEW 

SCRATCH 

UNKNOWN 

UNIT 

1 

2,3,4,5 


USEROPEN 

21 

8 



INFOWD 

Encoding 



The argument list does not specify the actual branch address. Instead, FOR$OPEN returns with a condition code. If an error occurred, 
program control branches to the labeled statement. 


If any other KEY or ARGTYPE values are encountered, an error occurs. 
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FOR$CLOSE 


3.2 CLOSE Statement 

FOR$CLOSE disconnects a file from the specified logical unit and deallocates the three control 
blocks. Normally, the disposition specified in a CLOSE statement has precedence over that which 
was specified in the OPEN statement. However, a file opened as a scratch file cannot be saved or 
printed, and a file opened for read-only access cannot be printed or deleted. 

{ STATUS \ 

DISPOSE = p>] [,ERR = s] [,IOSTAT = ios]) 

DISP J 

generates CALL FOR$CLOSE (keywd.rlu.v [,info.rlu.v]) 

Arguments 

keywd 

The user-specified keywords. (See Section 3.1 for a more complete description.) The allowable 
keywords are UNIT, ERR, IOSTAT, and DISPOSE. STATUS and DISP are alternate keywords for 
DISPOSE. Passed by immediate value. 


Additional information if more than 16 bits are needed to define the keyword value. Passed by 
immediate value. 


FOR$INQUIRE 


3.3 INQUIRE Statement 

FOR$INQUIRE returns the current values of selected properties of a file or a logical unit. An inquiry 
can be made by either file name or logical unit number. For all keywords except UNIT and FILE, 
INQUIRE writes the current values to the variables whose names are passed as the keyword values. 

Format INQUIRE (FILE = fi, flist) 

INQUIRE ([UNIT = ]u, ulist) 

generates CALL FOR$INQUIRE (keywd.mlu.r [,info.wlu.r] [,keywd1 .mlu.r [Jnfol .wlu.r] [,... [,...]]]) 


Arguments 

keywd 

The user-specified keyword. Passed by immediate value. The keywd format is: 


31 16 15 87 0 


INFOWD or 0 


ARGTYPE 


KEY 
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where: 


KEY is a keyword identification number. 

ARGTYPE specifies the form of information and whether it is contained in INFOWD or the next 
argument list entry. If ARGTYPE specifies that INFOWD contains the associated 
information, then FOR$INQUIRE interprets the following argument list entry as the 
next KEYWD. 

The ARGTYPE values are: 

2 Keyword value is an INTEGER*2 constant expression. INFOWD contains the 
word value that is sign-extended to form a 32-bit value. 

3 Keyword value is an INTEGER*2 value. The next argument list entry contains the 
address of the word value that is sign-extended to form a 32-bit value. 

4 Keyword value is an INTEGER*4 constant expression. The next argument list 
entry contains the longword value. 

5 Keyword value is an INTEGER*4 value. The next argument list entry contains the 
address of the longword value. 

7 Keyword value is a CHARACTER string. The next argument list entry contains the 
address of the string descriptor. 

10 Keyword value is a BYTE value. The next argument list entry contains the address 
of the byte value. 

INFOWD is the keyword value, a pointer to the keyword value, or the count of additional 
longwords that make up the keyword value. 


info 

Additional information if more than 16 bits are needed to define the keyword value. Passed by 
immediate value. 

The allowable argument types for each INQUIRE statement keyword are summarized in Table 
FOR—4. 

Table FOR-4: Summary of Argument Types by INQUIRE Statement Keyword 


Keyword 

Name 

KEY 

ARGTYPE 

Value 

Character 

Values 

ACCESS 

35 

7 

UNKNOWN 

DIRECT 

KEYED 

SEQUENTIAL 

BLANK 

43 

7 

UNKNOWN 

NULL 

ZERO 

CARRIAGECONTROL 

47 

7 

UNKNOWN 

FORTRAN 

LIST 

NONE 
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Table FOR-4: Summary of Argument Types by INQUIRE Statement Keyword (Cont.) 


Keyword 

Name 

KEY 

ARGTYPE 

Value 

Character 

Values 

DEFAULTFILE 

26 

6,7 


DIRECT 

37 

7 

YES 

NO 

UNKNOWN 

ERR 

3 

0* 


EXIST 

30 

3,5,10 


FILE 

14 

7 


FORM 

38 

7 

UNKNOWN 

FORMATTED 

UNFORMATTED 

IOSTAT 

22 

3,5 


KEYED 

46 

7 

YES 

NO 

UNKNOWN 

NAME 

34 

7 


NAMED 

33 

3,5,10 


NEXTREC 

42 

3,5,10 


NUMBER 

32 

3,5,10 


OPENED 

31 

3,5,10 


ORGANIZATION 

44 

7 

UNKNOWN 

SEQUENTIAL 

RELATIVE 

INDEXED 

RECL 

41 

3,5,10 


RECORDTYPE 

45 

7 

UNKNOWN 

FIXED 

VARIABLE 

SEGMENTED 

SEQUENTIAL 

36 

7 

UNKNOWN 

YES 

NO 

UNFORMATTED 

40 

7 

UNKNOWN 

YES 

NO 

UNIT 

1 

2,4,3,5 




This is a control specifier rather than a property specifier. The actual address to which to transfer is not specified in the argument list. 
Instead, FOR$INQUIRE returns with a condition code in RO. If bit zero of RO is zero, the compiled code branches to the statement label. 
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Chapter 4 

Format Processing and Conversion 


The format specifications for formatted I /O are compiled into a standard internal form. Error checking 
is performed either by the FORTRAN compiler or at run time by the language support I/O statement 
initialization procedures. 

Each format specification has a unique seven-bit code and requires one or more bytes of information 
from the format code parameters. These parameters (field widths, repeat counts, and so on) are 
stored in single bytes or words. The four-byte relative address of the compiled machine instructions is 
a longword address that references the variable format expression (VFE). 

A variable format expression is an expression that replaces an integer in a FORMAT statement. It is 
reevaluated each time it is encountered in the normal format scan. 

When called as a function, the VFE returns the value of the format code parameter. In Figure FOR-1 
note that the format code is the only required byte. However, each format specification requires a 
fixed number of additional values. They are described in subsequent sections. 

Figure FOR-1: Format Code Form 


7 6 5 4 3 2 1 0 

Always present 
Present if X = 1 
Present if RS = 1,2 
Present depending on FC 
Present depending on FC 
Present depending on FC 



FORMAT CODE 

VFEM 

s 

RS 

REPEAT COUNT 

FIELD 

WIDTH 

DECIMAL WIDTH 

EXPONENT WIDTH 


FC,X 

RS,S,VFEM 

RC 

W 

D 

E 
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4.1 Format Code Byte (FC) 

The format code byte consists of a seven-bit format code (FC) and a one-bit extension flag (X). X is 
set if: 

• A variable format expression (VFE) is present 

• RC is not one 

• W is not a byte value 

4.2 Representation Size Byte 

The optional representation size byte specifies the widths of the following fields. The size specifica¬ 
tion byte is present when X = 1. Otherwise, the size byte is interpreted as containing zero. Table 
FOR-5 describes the subfields of the size specification byte. 


Table FOR-5: Representation Size Byte Subfields 


Subfield 

Bits 

Interpretation 

VFE Mask 

7 

If 1, RC is a VFE address 

(VFEM) 

6 

If 1, W is a VFE address 


5 

If 1, D is a VFE address 


4 

If 1, E is a VFE address 

Reserved 

3 

Reserved for use by DIGITAL 

Width Size 

2 

If 0, W is a byte integer 

(S) 


If 1, W is a word integer 

Repeat Count 

1 

If 00, RC is not present 

Size (RS) 

0 

If 01, RC is a byte integer 

If 10, RC is a word integer 

If 11, reserved for use by DIGITAL 


4.3 Repeat Count (RC) 

The optional repeat count (RC) field is interpreted as either: 

• A longword VFE address if VFEM bit 7 is set 

• A repeat count represented by: 

- An unsigned byte integer if RS = 1 

- An unsigned word integer if RS = 2 

4.4 Field Width (W) 

The optional field width (W) field is interpreted as either: 

• A longword VFE address if VFEM bit 6 is set 

• An unsigned integer value representing the field width in the range: 

- 1 to 255 if S = 0 

- 1 to 63,535 if S=1 
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4.5 Decimal Width (D) 

The optional decimal width (D) field is interpreted as either: 

• A longword VFE address if VFEM bit 5 is set 

• An unsigned byte integer value in the range 0 to 255 for some conversion codes 

4.6 Exponent Width (E) 

The optional exponent width (E) field is interpreted as either: 

• A longword VFE address if VFEM bit 4 is set 

• An unsigned byte integer value in the range 0 to 255 for some floating-point conversion codes 

4.7 VFE Addresses 

If the repeat count (RC), field width (W), decimal part (D), or exponent part (E) is a variable format 
expression (VFE) as indicated by VFEM, the longword VFE address is stored in the internal form as an 
unaligned four-byte address. The entry for this address is the signed number of bytes between the byte 
following the VFE longword and the low-order byte of the VFEM. Thus format statements are entirely 
position-independent code. See the explanation of data type arl in the Entry Point Summary Section at 
the back of this manual. 

The VFE is compiled as a standard VAX-11 procedure that returns an INTEGER*4 function value. 

In the following example, RC, the repeat count, is a VFE. Its computed value is substituted at run 
time. 


100 FORMAT (< N + 3 >I 10) 

This statement results in the following compiled format code: 


BY 

TE 

X 9 8 

; Cod 

e f 

0 

r 

n 

Iw 

( - X 

18 

) 

w i 

t 

h 

X bit s e 

BY 

TE 

'' X 8 0 

; 0FE 

m a 

s 

k 

b 

i t 

7 s 

e t 

: 

RC 


i s 

a 0FE 

LONG 

L $ 1 - < ♦ + 4 > 

? Lon 

3 w 0 

r 

d 

c 

o n 

tain 

i n 

3 

s e 

1 

f- 

relative 




5 add 

res 

s 


o f 

u 

FE s 

lib 

rout 

i 

n e 


BY 

TE 

10 

5 Fie 

1 d 

w 

i 

d t 

h 

(10) 







BYTE 

-><04 

; End 

-of 

- 

f 

o r 

m a 

t CO 

d e 







The VFE subroutine L$1 is as follows: 


L$1: ♦WORD "M<I 0 > 

ADDL3 #3 * N > R0 
RET 


In this example, the format code byte contains a hex 98, which is the code for nlw with the X bit set 
to indicate that a VFE is present (see Table FOR-7, Section 4.9). In the representation size byte, bit 7 
of the VFE mask is set to indicate that RC is a VFE. Instead of a byte integer value, RC is represented 
by a four-byte self-relative address that indicates the displacement to the VFE subroutine. This subrou¬ 
tine computes RC and returns its value in R0. 
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4.8 Hollerith Formats 


Quoted format strings (alphanumeric literals) are compiled as Hollerith constants. The count for 
Hollerith constants cannot be a VFE because the compiled format following the repeat count contains 
the characters to be transmitted. The repeat count specifies the number of characters in the Hollerith 
constant. 

4.9 Default Formats 

Most format code field descriptors have a default value supplied if the numeric value is not present. 
The format code and the data type of the corresponding list element at execution time determines 
these defaults, as shown in Table FOR—6. 

Table FOR-6: Default Format Code Descriptor Values 


Format 

Code 

Data 

Type 

Default Values of 

W, W.D, or W.DE 

1 

L*1,l*2 

7 

1 

1*4 

12 

D,E,F,G 

R*4 

15.7 

D,E,F,G 

R*8 

25.16 

D,E,F,G 

R*16 

42.33E3 

L 

all 

2 

A 

all 

Number of bytes in the variable 

X 

— 

1 7 

o,z 

L*1,1*2 

12 

o,z 

L*4,l*4 

23 

o,z 

R*8 

44 

o,z 

R*1 6 



Table FOR—7 shows the compiled format codes for the allowable source form. 

Table FOR-7: Compiled Format Codes 


Code 

(Dec) 

Code 

(Hex) 

Source 

Form 

Repeat 

Count 

W D E 

Notes 

0* 

0 


_ 

_ _ _ 

Format syntax error 

1 

1 

( 

— 

— — — 

Format reversion point 

2 

2 

n( 

n 

— — — 

Left paren of repeat grp*** 

3 

3 

) 

— 

— — — 

Right paren of repeat grp 

4 

4 

) 

— 

— — — 

End of format 

5 

5 

/ 

— 

— — — 

Record separator 

6 

6 

$ 

— 

— — — 

Terminal I/O 

7 

7 


— 

— — — 

Terminate if end of list 

8 





Unused 

9 

9 

S 

— 

— — — 

Default optional plus sign 

10 

A 

SP 

— 

— — — 

Force optional plus sign 

11 

B 

ss 

— 

— — — 

Omit optional plus sign 
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Table FOR—7: Compiled Format Codes (Cont.) 


Code 

(Dec) 

Code 

(Hex) 

Source 

Form 

Repeat 

Count 

W 

D 

E 

Notes 

mm 

C 

sP 

_ 

s 

_ 

_ 

Signed scale factor 

mm 

D 

Tn 

— 

n 

— 

— 

Tab set 

MB 

E 

nX 

— 

n 

— 

— 

Not supported, use TR 


F 

nHcl ...cn 

— 

n 

— 

— 

N not VFE, n chars follow** 

■ft* 

10 

BN 

— 

— 

— 

— 

Blanks are nulls 

ffl 

11 

BZ 

— 

— 

— 

— 

Blanks are zeros 

mm 

12 

TLc 

— 

c 

— 

— 

Tab left 

IS 

13 

TRc 

— 

c 

— 

— 

Tab right 

20 

14 

Q 

— 

— 

— 



21 

15 

nAw 

n 

w 

— 

— 

Standard conversions 

22 

16 

nLw 

n 

w 

— 

— 


23 

17 

nOw 

n 

w 

— 

— 


24 

18 

nlw 

n 

w 

— 

— 


25 

19 

nZw 

n 

w 

— 

— 


26 

1A 

nOw.d 

n 

w 

d 

— 


27 

IB 

nlw.d 

n 

w 

d 

— 


28 

29 

1C 

nZw.d 

n 

w 

d 

— 

Unused 

30 

IE 

nFw.d 

n 

w 

d 

— 


31 

IF 

nEw.d 

n 

w 

d 

— 


32 

20 

nGw.d 

n 

w 

d 

— 


33 

21 

nDw.d 

n 

w 

d 

— 


34 

22 

nEw.dEe 

n 

w 

d 

e 


35 

36-39 

23 

nGw.dEe 

n 

w 

d 

e 

Unused 

41 

29 

nA 

n 

— 

— 

— 

Default formats 

42 

2A 

nL 

n 

— 

— 

— 


43 

2B 

nO 

n 

— 

— 

— 


44 

2C 

nl 

n 

— 

— 

— 


45 

46-49 

2D 

nZ 

n 

— 

— 

— 

Unused 

50 

32 

nF 

n 

— 

— 

— 


51 

33 

nE 

n 

— 

— 

— 


52 

34 

nG 

n 

— 

— 

— 


53 

35 

nD 

n 

— 

— 

— 



* This code is generated only by FOR${READ, WRITE, REWRITE, ENCODE, DECODE} {S,X,K,D}0 

** Checked by FORTRAN compiler and Language Support Library format compiler, rather than by the Language Support Library format 
interpreter. Note: Range of values is as follows (except where noted): 

0 < n =< 32767 (decimal) 

0 < w = < 65535 (decimal) 

0 =< d =< 255 (decimal) 

** The maximum number of nested repeat groups is eight. 
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FOR$CVT-x-Ty 


4.10 Convert Floating-Point to Text 

FOR$CVT_x_Ty are routines that convert floating-point values to ASCII text strings. They are divided 
according to VAX-11 data types and to FORTRAN format types. 

FORTRAN format types are D/E (exponential), F (fixed-point), and G (fixed-point or exponential). 
VAX-11 data types are D_floating, G_floating, and H_floating. 

For compatibility with previous releases, the name FOR$CNV_OUT_y is equivalent to 
FOR$CVT_D_Ty. 

generates ret-status.wlc.v = FOR$CVT_x_Ty (value.rz.r, out-str.wt.ds, 

digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v [,digits-in-exp.rlu.v 
[,flags.rlu.v]]]]) 

where: 

x is the VAX-11 data type, either D_floating, G_floating, or 
H_floating. 

y is the FORTRAN format, either D, E, F or G. 

Arguments 

I value 

The D_floating, G_floating, or H_floating value to be converted. Passed by reference. 

^ out-str 

The ASCII text string. The string is assumed to be fixed-length (DSC$K_CLASS_S). Passed by 
descriptor. 

digits-in-fract 

The number of digits in the fraction portion. Passed by immediate value. 
d scale-factor 

The scale factor. The externally represented number equals the internally represented number 
multiplied by 10** scale-factor. If digits-in-int is not present, scale-factor indicates the true scale 
factor on F format or the digits-in-int for D, E, and G formats. The default value is zero. Passed by 
immediate value. 

/ digits-in-int 

The number of digits in the integer part of an exponentially formatted value. Digits-in-int is 
ignored for F format. The default is zero. Passed by immediate value. 

digits-in-exp 

The number of digits in the exponent field. If the exponent overflows this field by one digit and 
the flag bit 1 is clear, the exponent letter is removed. The default is two. Passed by immediate 
value. 

i flags 

The caller-supplied flags, defined as follows: 

bit 0 If set, and the value is positive, insert a plus sign ( + ) before the 

first nonzero character in the output string, 
bit 1 If set, treat exponent field width overflow as an error (do not 

remove the exponent letter). 
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If omitted, all bits are clear. Passed by immediate value. 

Return Status 

SS$_NORMAL 

Routine successfully completed. 

FOR$_OUTCONERR 

Output conversion error. The result would have exceeded the fixed-length string; the output string 
is filled with asterisks. 

Messages 

SS$_ROPRAND 

Reserved operand fault. A reserved floating-point operand was passed; out-str is not changed. 


Format Processing and Conversion FOR 33 



Chapter 5 

Compiled-Code Support Procedures 


FOR$INI-DESm-Rn 


5.1 Array Support 

This section describes the support procedures that initialize descriptors for adjustable arrays each time 
you enter a FORTRAN procedure. Three JSB entry points are provided: 

• FOR$INI_DES1 _R2; one-dimensional array 

• FOR$INI_DES2_R3; two-dimensional array 

• FOR$INI_DESC_R6; n-dimensional array 

See Appendix C of the VAX—11 Run-Time Library Reference Manual for a complete description of the 
array descriptor. 

The implicit outputs, LOW_INDX and HIGH_INDX, are FORTRAN—specific. They are external to 
the standard array descriptor created by the called procedure. For in-line subscript checking, you 
should use the VAX—11 INDEX instruction. 

FOR$INI_DES1 _R2 initializes one-dimensional array descriptor entries based on the lower and upper 
subscript limits. 

FOR$INI_DES2_R3 initializes two-dimensional array descriptor entries based on the lower and upper 
subscript limits and the address of the first allocated entry. 

FOR$INI_DESC_R6 initializes n-dimensional array descriptor entries based on the lower and upper 
subscript limits and the address of the first allocated entry. 
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Format 

DIMENSION a([dl:]du) 

generates 

MOVAL $LOCAL + "X8(R11),R0 

JSB FOR$INI_DES1 _R2 

Format 

DIMENSION a([dl1 :]du1 ,[dl2:]du2) 

generates 

MOVAL $LOCAL + ~X8(R11),R0 

JSB FOR$INI_DES2_ R3 

Format 

DIMENSION a([dl1 :]du1 ,[dl2:]du2, ... [,[dln:]dun]) 

generates 

MOVAL SLOCAL + 'X8(R11 ),R0 

JSB FOR$INI_DESC—R6 

Arguments 


dsc-adr (RO) 



The address of the array descriptor. The address should be loaded into RO before executing the 
JSB instruction. 

Implicit Inputs 


Note 

The number in parentheses following the argument refers to the register into which the 
argument is placed before the JSB is executed. 

LENGTH (R1) 

The length in bytes of each data element. 

DTYPE 

The data type of each element. 

POINTER 

Address of the first allocated entry. 

LI (R2) (FOR$INI_DES1 _R2 only) 

The first subscript's lower limit. 

U1 

The first subscript's upper limit. 

L2 (R2) (FOR$INI_DES2_R3 only) 

The second subscript's lower limit. 

U2 (R3) (FOR$INI_DES2_R3 only) 

The second subscript's upper limit. 

Ln 

The nth subscript's lower limit. 

Un 

The nth subscript's upper limit. 
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Implicit Outputs 


ARSIZE 

The array size in bytes. 

AO 

The address of A(0, ...). This address can be outside the actual array. For a zero-origin array, AO 
equals POINTER. 

Ml 

The first-dimension multiplier. 

M2 

The second-dimension multiplier. 

Mn 

The nth-dimension multiplier. 

HIGH_INDX 

The highest linear index. This longword is placed in dsc-adr - 4. 

LOW—INDX 

The lowest linear index. This longword is placed in dsc-adr — 8. 

FOR$BITOPS 


5.2 Bit Operations 

This section describes the procedures that implement the FORTRAN MIL-STD 1753 functions and 
subroutines for manipulating individual bits of arguments. Each implementation has two entry points, 
one for word arguments and one for longword arguments. 

FOR$BITEST and FOR$BJTEST return a TRUE value if the bit tested is a one. 

FOR$IIBCLR and FOR$JIBCLR return the value of the input argument with the specified bit cleared. 

FOR$IIBITS and FOR$JIBITS return a subfield from the input argument starting with the specified bit 
and extending to the left for a specified number of bits. The returned value is right-justified and the 
remaining bits are set to zero. 

FOR$IIBSET and FOR$JIBSET return the value of the input argument with the specified bit set. 

FOR$IISHFTC and FOR$JISE1FTC return the value of the input argument with a specified number of 
bits shifted a specified number of positions. A circular shift is performed, that is, bits shifted out of the 
high-order positions are shifted into the low-order positions. 

FOR$IMVBITS and FOR$JMVBITS move a specified number of bits in the input argument to the 
output argument. The starting positions within each argument can be specified. 

Format BTEST (value, position) 

generates result.ww.v = FOR$BITEST (value.rw.r, position.rw.r) 

result.wl.v = FOR$BJTEST (value.rl.r, position.rl.r) 
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Format 

IBCLR (value, position) 

generates 

result.ww.v = FOR$IIBCLR (value.rw.r, position.rw.r) 
result.wl.v = FOR$JIBCLR (value.rl.r, position.rl.r) 

Format 

IBITS (value, position, length) 

generates 

result.ww.v = FOR$IIBITS (value.rw.r, position.rw.r, length.rw.r) 
result.wl.v = FOR$JIBITS (value.rl.r, position.rl.r, length.rl.r) 

Format 

IBSET (value, position) 

generates 

result.ww.v = FOR$IIBSET (value.rw.r, position.rw.r) 
result.wl.v = FOR$JIBSET (value.rl.r, position.rl.r) 

Format 

ISHFTC (value, count, length) 

generates 

result.ww.v = FOR$IISHFTC (value.rw.r, count.rw.r, length.rw.r) 
result.wl.v = FOR$JISHFTC (value.rl.r, count.rw.r, length.rw.r) 

Format 

CALL MVBITS (inp-val, inp-pos, length, out-val, out-pos) 

generates 

CALL FOR$IMVBITS (inp-val.rw.r, inp-pos.rw.r, length.rw.r, out-val.ww.r, out-pos.rw.r) 
CALL FOR$JMVBITS (inp-val.rl.r, inp-pos.rl.r, length.rl.r, out-val.wl.r, out-pos.rl.r) 

Arguments 


value 

inp-val 



The value to be operated on. Passed by reference. 


position 

inp-pos 

out-pos 

The bit position to be operated on. Passed by reference, 
length 

The number of bits to be operated on. Passed by reference, 
count 

The number of places the bits are to be shifted. Passed by reference. 

result 

out-val 

The result of the operation. Passed by reference. 

FOR$Lxx 

5.3 Lexical Comparisons 

The procedures described in this section compare two character strings according to the ASCII collat¬ 
ing sequence. Each routine has two arguments, which are the addresses of string descriptors. The 
strings are compared, blank padding is added where needed, and a TRUE or FALSE value is returned 
according to whether the specified condition is satisfied. 
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TRUE is a longword of all ones, FALSE is a longword of all zeros. 

Given two input strings, stringl and string2\ 

FOR$LLT returns a TRUE value if stringl is less than string2. 

FOR$LLE returns a TRUE value if stringl is less than or equal to string2. 

FOR$LGE returns a TRUE value if stringl is greater than or equal to string2. 

FOR$LGT returns a TRUE value if stringl is greater than string2. 

Format CHARACTERS0 stringl 

LLT(string1, string2) 

generates CALL condition.wlu.v = FOR$LLT (strl.rx.dx, str2.rx.dx) 

Format LLE(string1, string2) 

generates CALL condition.wlu.v = FOR$LLE (strl.rx.dx, str2.rx.dx) 

Format LGE(string1, string2) 

generates CALL condition.wlu.v = FOR$LGE (strl.rx.dx, str2.rx.dx) 

Format LGT(string1, string2) 

generates CALL condition.wlu.v = FOR$LGT (strl.rx.dx, str2.rx.dx) 

Arguments 

condition 

The result of the comparison. The value is set to TRUE (-1) if the condition is satisfied, or FALSE 
(0) if not satisfied. Passed by immediate value. 


str 1 


The first input string {stringl). Passed by descriptor. 


str2 


The second input string {string2). Passed by descriptor. 


FOR$PAUSE 


5.4 PAUSE Statement 

FOR$PAUSE suspends program execution and displays a message on the terminal to permit a 
response. If you do not specify a message in your call to FOR$PAUSE, vour terminal displays 
'FORTRAN PAUSE.' 

Format PAUSE [disp] 

generates CALL FOR$PAUSE ([message.rt.dx]) 

Arguments 

message 

The message to be displayed. Passed by descriptor. 
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FOR$STOP 


5.5 STOP Statement 

FOR$STOP displays a message on the terminal and terminates program execution. If you do not 
specify a message in your call to FOR$STOP, your terminal displays 'FORTRAN STOP.' 

Format STOP [disp] 

generates CALL FOR$STOP ([message.rt.dx]) 

Arguments 

message 

The message to be displayed. Passed by descriptor. 

FOR$UNDERFLOW_HANDLER 

5.6 Underflow Exception Handler 

FOR$UNDERFLOW_HANDLER is a condition handler for floating-point underflow exceptions 
(SS$_FLTUND, SS$_FLTUND_F, and MTH$_FLOUNDMAT) which does the following: 

• Counts each occurrence of underflow 

• Declares an exit handler, if not already declared, to report the total number of floating-point 
underflow exceptions at image exit 

• Resignals the condition after changing the severity to ERROR, if it is the first or second occurrence 
of underflow, to cause the catch-all handler to print a message and continue execution 

• Continues execution without causing a message to be printed, if it is not the first or second 
occurrence of underflow 

Floating-point underflow faults (SS$_FLTUND_F) are first converted to traps by calling 
LIB$SIM_TRAP, then they are processed as traps. 

FOR$UNDERFLOW_FHANDLER is established by FORTRAN main programs which have been com¬ 
piled with the /CHECK= UNDERFLOW qualifier. You can invoke FOR$UNDERFLOW_HANDLER 
at any level (for example, to provide selective monitoring of underflows) by calling LIB$ESTABLISH. 

generates ret-status.wlc.v = FOR$UNDERFLOW_HANDLER (sig-args-adr.ra.v, 
mch-args-adr.ra.v, enb-args-adr.ra.v) 


Arguments 

sig-args-adr 

The address of the signal array. Passed by immediate value, 
mch-args-adr 

The address of the mechanism array. Passed by immediate value, 
enb-args-adr 

The address of the enable array. Passed by immediate value. 
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Implicit Inputs 

UNDERFLOW-COUNT 

The count of underflow exceptions is maintained in OWN storage. 

Implicit Outputs 

UNDERFLOW-COUNT 

The count of underflow exceptions is maintained in OWN storage. 

Return Status 

SS$_RESIGNAL 

The exception is not a floating-point underflow exception or it is the first or second occurrence of 
a floating-point underflow exception and the severity has been changed to ERROR. 

SS$_CONTINUE 

The exception is a floating-point underflow exception but not the first or second occurrence. 

5.7 Miscellaneous Code Support 

This section describes the procedures that support the VAX-11 FORTRAN system subroutines. The 
subroutines are: 

• DATE - Returns a nine-byte string containing the ASCII representation of the current date. 

• IDATE - Returns three word integer values representing the current month, day, and year. 

• JDATE - Returns three longword integer values representing the current month, day, and year. 

• ERRSNS - Returns information about the most recently detected error condition. 

• EXIT - Terminates the execution of a program and returns control to the operating system. 

• SECNDS - Provides system time of day, or elapsed time, as a floating-point value in seconds. 

• TIME - Returns an eight-byte string containing the ASCII representation of the current time in hours, 
minutes, and seconds. 

FOR$DATE 


5.7.1 Return System Date as a String 

FOR$DATE returns the system date as a nine-byte array in the form DD-MMM-YY (for example, 
11—JUN—78). 

FOR$DATE_T_DS returns the system date as a nine-character string in the form DD—MMM—YY (for 
example, 11—JUN—78). 

Format CALL DATE(buf) 

generates CALL FOR$DATE (9-byte-array.wb.ra) 

Format CALL DATE(string) 

generates CALL FOR$DATE_T_DS (date-str.wt.ds) 
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Arguments 


9-byte-array 

The nine-byte array in which the string is to be placed. Passed by reference, 
date-str 

A fixed-length string to receive the system date. Passed by descriptor. 

FOR$IDATE 

5.7.2 Return Month, Day, Year as INTEGER*2 

FOR$IDATE uses the system service ($NUMTIM) to get date information. This information is con¬ 
verted to 16-bit integers and stored through the addresses passed as parameters. 

Format CALL IDATE(i,j,k) 

generates CALL FOR$IDATE (month.ww.r, day.ww.r, year.ww.r) 

Arguments 

month 

The month (/). Passed by reference. 


day 

The day (/). Passed by reference, 
year 

The year (k). Passed by reference. 

FOR$JDATE 

5.7.3 Return Month, Day, Year as INTEGER*4 

FOR$JDATE uses the system service Convert Binary Time to Numeric Time ($NUMTIM) to get date 
information. This information is converted to 32-bit integers and stored through the addresses passed 
as parameters. 

Format CALL JDATE(i,j,k) 

generates CALL FOR$JDATE (month.wl.r, day.wl.r, year.wl.r) 

Arguments 

month 

The month integer (range: 1 to 12). Passed by reference. 

day 

The day integer (range: 1 to 31). Passed by reference, 
year 

The year integer (range: 0 to 99). Passed by reference. 
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FOR$ERRSNS 
FOR$ERRSNS—W 


5.7.4 Return Last Error Information 

FOR$ERRSNS returns information about the most recent error during program execution. Separate 
data bases are kept for AST and non-AST level. Therefore, the last error returned is the last one that 
occurred at the same level as the caller of FOR$ERRSNS. 

All parameters are optional. A call with no parameters has the effect of clearing the error information 
at the current level. 

FOR$ERRSNS_W is identical to FOR$ERRSNS except the returned values are words, not longwords. 
Format CALL ERRSNS(fnum, rmssts, rmsstv, iunit, condval) 

generates CALL FOR$ERRSNS ([for-err-num.wlu.r [,rms-status.wlu.r [,rms-status-val.wlu.r 
[,for-lun.wlu.r [,cond-val.wlc.r]]]]]) 

Arguments 

for-err-num 

The most recent FORTRAN error number. VAX—11 FORTRAN error numbers are listed in the 
VAX-11 FORTRAN User's Guide. Passed by reference. 

rms-status 

The RMS completion status code, if the last error was an RMS I/O error. Passed by reference, 
rms-status-val 

The RMS status value, if the last error was an RMS I/O error. Passed by reference, 
for-lun 

The FORTRAN logical unit number, if the last error was an I/O error. Passed by reference, 
cond-val 

The VAX—11 condition value. Passed by reference. 


FOR$EXIT 
FOR$EXIT—W 


5.7.5 Return Control to the Operating System 

FOR$EXIT terminates the program, closes all files, and returns control to the operating system. The 
completion code value is one unless you provide a value as an optional parameter. 

FOR$EXIT_W is identical to FOR$EXIT except the completion code value is a word integer, not a 
longword integer. 

Format CALL EXIT [(exit-status)] 

generates CALL FORSEXIT ([completion-code.rl.v]) 
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Arguments 


completion-code 

The integer value to be saved in the process header as the completion status of the current image. 
If omitted, a value of one is passed as the completion code. Passed by immediate value. 

FOR$SECNDS 

5.7.6 Return System Time in Seconds 

FOR$SECNDS returns the system time in seconds as an F_floating value minus the value of its 
argument. 

Format y = SECNDS(x) 

generates CALL time-diff.wf.v = FOR$SECNDS (time-origin.rf.r) 

Arguments 

time-diff 

The difference in seconds between the system time and the value in time-origin. Passed by 
immediate value. 

time-origin 

The starting time in seconds. Passed by reference. 

FOR$TIME 

FOR$TIME-T-DS 

5.7.7 Return System Time as a String 

FOR$TIME returns the system time as an eight-byte string in the form FfH:MM:SS. 

FOR$TIME_T_DS returns the system time to a string. If the length of the receiving string is greater 
than eight, the string is padded with blanks. 

Format CALL TIME(buf) 

generates CALL FOR$TIME (8-byte-array.wb.ra) 

Format CALL TIME(string) 

generates CALL FOR$TIME_T_DS (time-str.wt.ds) 

Arguments 

8—byte-array 

The eight-byte array in which the string is to be placed. Passed by reference, 
time-str 

A fixed-length string to receive the system time. Passed by descriptor. 
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Chapter 1 

Using VAX-11 PL/I-Specific Support Procedures 


This division describes the procedures specific to VAX-11 PL/I in the VAX-11 Run-Time Library. 
VAX-11 PL/I uses these procedures to support: 

• Processing files, lists, and strings 

• File-handling built-in subroutines 

• Conversion of data types 

• Multiple precision division 

• Statements in PL/I compiled code 

VAX-11 PL/I compiled code calls these support procedures automatically. Normally, you never need 
to call any of these procedures explicitly. 

Section 1.1 briefly describes the procedures that perform these support functions. Section 1.2 
describes the coding and calling of PL/I library procedures as well as error signaling from VAX-11 
PL/I procedures. 

Chapters 2 through 5 describe the support procedures in detail. Each entry contains the following 
information: 

1. A functional description 

2. A format showing the calling sequence for the procedure 

3. The entry point 

4. A list of parameters 

5. A list of arguments and their definitions 
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1.1 PL/I Support Procedures in the Run-Time Library 

This section summarizes the operations that Run-Time Library procedures perform to execute 
VAX-11 PL /I statements. 

1.1.1 File Processing Support 

The Run-Time Library contains routines that support PL/I file processing statements. 

• OPEN and CLOSE. PL/I calls PLI$OPEN and PLI$CLOSE to open and close files. Sections 2.1 and 
2.2 describe these procedures in detail. 

• Stream I /O. VAX—11 PL/I uses the GET and PUT statements for stream I /O. The Run-Time Library 
contains modules that support both the EDIT and LIST forms of the GET and PUT statements. 

- The GET EDIT statement invokes PLI$GETFILE and one of the routines in the PLI$GETEDITITEM 
module. They read data from either a stream file or a character string, and they assign the data 
to a target variable in an edited format. 

- The PUT EDIT statement generates PLI$PUTFILE and one of the routines in the PLI$PUTEDITITEM 
module. They place character strings in the output stream according to a format specification. 

- The GET LIST statement invokes PLI$GETFILE and one of the routines in the PLI$GETLISTITEM 
module. They read data from a stream file or character string. 

- The PUT LIST statement generates PLI$PUTFILE and one of the routines in the PLI$PUTLISTITEM 
module to convert output sources to character strings and transmit them to the output stream. 

- PLI$PUT_END_R6 prints the contents of the file buffer on the terminal. 

Sections 2.3.1 through 2.3.2 describe these routines. 

• Record I/O. PL/I READ, WRITE, REWRITE, and DELETE statements result in calls to their corre¬ 
sponding Run-Time Library procedures: PLI$READ, PLI$WRITE, PLI$REWRITE, and PLI$DELETE. 

- PLI$READ reads a record from a PL/I file. 

- PLI$WRITE writes a record to a PL/I file. 

- PLI$REWRITE replaces a record in a PL/I file. 

- PLI$DELETE deletes a record from a PL/I file. 

Section 2.3.3 describes record I/O procedures. 


1.1.2 Auxiliary I/O Statements 

VAX-11 Record Management Services (RMS) provides additional I/O support services, which 
VAX—11 PL/I invokes through file-handling built-in subroutines. Each subroutine is supported by its 
corresponding Run-Time Library procedure. Table PL I—9 (Chapter 3) summarizes the functions of 
these subroutines. Chapter 3 describes the supporting procedures. 
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1.1.3 String Manipulation 

The Run-Time Library supports the following PL/I bit string and character string operations: 

• Performing the logical AND operation (PLI$ANDBIT) 

• Performing the logical BOOL built-in function (PLI$BOOLBIT) 

• Performing the logical OR operation (PLI$ORBIT) 

• Performing the logical NOT operation (PLI$NOTBIT) 

• Moving a bit string (PLI$MOVBIT) 

• Joining two bit strings (PLI$CATBIT) 

• Comparing two bit strings (PLI$CMPBIT) 

• Performing the INDEX built-in function (PLI$INDEXBIT) 

• Performing the TRANSLATE built-in function on three character strings (PLI$MOVTRANCHAR) 

• Performing the VERIFY built-in function (PLI$VERIFY) 

Sections 4.1.1 and 4.1.2 describe these procedures. 

1.1.4 Conversion of Data Types 

Table PLI—1: Abbreviations of Data Types for Conversion, GET, and PUT Routines 


PL/I Data Type 

Abbreviation 

VAX-11 Data Type 

Aligned bit 

ABIT 

V - Variable bit 
field 

Unaligned bit 

BIT 

VU — Bit unaligned 

Picture 

PIC 

T - Text 

Fixed-point decimal 

FIXD 

P - Packed decimal 

Fixed-point binary 

FIXB 

L — Longword 

Floating-point decimal 

FLTD 

Z - Unspecified* 

Floating-point binary 

FLTB 

Z — Unspecified* 

Varying character string 

VCHA 

T - Text 

Fixed-length character string 

CHAR 

T — Text 


PL/I floating-point data is represented internally by VAX-11 F_floating, D_floating, or H_floating data type, depending on the size of the 
data item. G_floating can also be requested at compile time. 


The PL/I compiler calls the Run-Time Library to perform some data-type conversions. The library 
contains a routine to convert any of the PL/I data types to any other. Each of these routines has an 
entry point of the form PLI$<src><dest>_R6, where src is an abbreviation for the source data type 
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and dest is an abbreviation for the destination data type. Table PLI-1 lists the PL/I data types, their 
abbreviations, and their corresponding VAX—11 data types, as specified by the VAX—11 Procedure 
Calling Standard. The conversion routines are invoked by a call, although their parameters are passed 
in registers. Section 5.1 describes the conversion routines in the PL/I Run-Time Library. 

1.1.5 Arithmetic Operations 

Two PL/I Run-Time Library routines support arithmetic operations. VAX-11 PL/I performs division 
with greater precision than is possible using the VAX-11 machine instruction DIVP. To perform this 
multiple-precision division on fixed-point decimal data, PL/I compiled code calls 
PLI$DIV_PK_SHORT or PLI$DIV_PK_LONG. Section 5.2 describes these routines. 

1.1.6 Compiled-Code Support 

Run-Time Library procedures support PL/I compiled code in the following cases: 

• Control procedures 

• Condition handling and I/O exceptions 

• Date/time utilities 

• Dynamic allocation of virtual memory 

• String I /O 

1.1.7 Control Procedures 

When you choose the MAIN option, compiled code calls PLI$OPTIONS_MAIN to initialize the stack 
frame and declare an exit handler for the program. The RETURN or STOP statement, or the end of the 
main procedure, results in a call to PLI$STOP_PROG. This routine signals the FINISH condition and 
stops the program. Section 6.1 describes these procedures. 

1.1.7.1 Condition Handling and I/O Exceptions — The Run-Time Library supports three types of PL/I 
condition-handling facilities: condition handlers, built-in functions, and other utilities. 

1. Section 6.2.1 describes the following condition handlers: 

• PLI$CND_HND is the default condition handler for PL/I procedures. 

• PLI$DEF_HND is the default condition handler for PL/I main procedures. 

• PLI$IO_ERROR signals I/O errors. 


2. PL/I provides the following built-in functions for condition handling: 

• ONKEY built-in function. PLI$ONKEY supports this function by returning the key value that 
caused the KEY condition to be signaled during an I/O operation. 

• ONCODE built-in function. PLI$ONCODE supports this function by returning the status value 
of the most recent run-time error that signaled the current ON condition. 

• ONARGSLIST built-in function. PLI$ONCNDARGS supports this function by returning the 
argument pointer of the most recent condition. 
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• ONFILE built-in function. PLI$ONFILE supports this function by returning the name of the file 
constant for which the current file-related condition was signaled. 

In addition, the Run-Time Library contains PLI$RESIGNAL, which supports the resignaling of 
conditions. 

Section 6.2.2 describes the procedures that support condition-handling built-in subroutines. 

3. The Run-Time Library includes the following utility routines, described in Section 6.2.3: 

• PLI$BOUND_CHECK signals an error when a label vector entry is used without being 
initialized. 

• PLI$NONLOC_RET supports a nonlocal RETURN by unwinding the call stack. 

• PLI$OPTMAIN_RET performs a RETURN within an OPTIONS MAIN block. 

1.1.7.2 Date/Time Utilities — PLI$DATE supports the PL/I DATE built-in function; it returns the 
current date. 

PLI$TIME supports the TIME built-in function; it returns the current time. 

Section 6.3 describes these two routines. 

1.1.7.3 Dynamic Allocation of Virtual Memory — Section 6.4 describes PLI$ALOCHEEP and 
PLI$FREEHEEP, which support the PL/I ALLOCATE and FREE statements. These procedures allocate 
and free a block of virtual memory. 

1.1.7.4 String I/O — PLI$GETSTRING_R6 and PLI$PUTSTRING_R6 support the GET STRING and 
PUT STRING statements. Section 6.5 describes these routines. 

1.2 Writing a PL/I Procedure Callable by Your Program 

This section tells you how to write a PL/I procedure that your program can call to perform frequently 
used operations. It also describes how to include a call to a PL/I procedure in your program. Because 
the Run-Time Library is designed according to principles of modular programming, you can call PL/I 
procedures from programs written in other languages. 

1.2.1 Subroutines and Functions 

A procedure is the basic executable program unit in PL/I. It consists of a sequence of statements, 
headed by a PROCEDURE statement and terminated by an END statement, that define an executable 
set of program instructions. Two types of procedure can be invoked by another procedure during 
execution: 

• Subroutines, which are invoked by a CALL statement. Subroutines return values to the invoking 
procedure only by means of their parameter lists. They must not include either an expression in 
their RETURN statements or a RETURNS option in their PROCEDURE or ENTRY statements. 

• Functions, which are invoked by a function reference. A function reference can appear in place of a 
scalar value or expression in a PL/I statement. A function returns a single value to the invoking 
procedure. This value then becomes the value of the function reference in the invoking procedure. 
Functions may also return values through their parameter lists. Functions must include a RETURNS 
option to describe the attributes of the returned value and must specify an expression in their 
RETURN statements. 
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Each type of procedure can receive data from the invoking procedure by means of an argument list. 

A procedure may have multiple entry points, and they may be either subroutine entry points or 
function entry points. The procedure is treated as a subroutine or function, depending on the entry 
point through which it is invoked. 

1.2.1.1 External Procedures — To be callable by your program, a PL/I procedure must follow the 
rules for a PL/I external procedure. The text of an external procedure is not contained in any other 
block of the invoking procedure. Thus, its source text can be separately compiled. Before you can 
invoke an external procedure, you must declare its name within the procedure that invokes it. The 
declaration for the external entry name must also provide a list of parameter descriptors that give the 
data types of the calling procedure's parameters. For further details, see the VAX-11 PL/I User's 
Guide. 

1.2.1.2 Terminating External Procedures — The following statements terminate an external 
procedure: 

• RETURN 

A RETURN statement is the normal termination for a subroutine or function. If the called procedure 
is a function, a RETURN statement must specify a return value. 

• STOP 

A STOP statement ends program execution. It does not pass a return value. 

• END 

If an END statement closes the procedure block of a subroutine before a RETURN or STOP state¬ 
ment is executed, the END statement has the same effect as RETURN. A function cannot be 
terminated without a RETURN statement. 

• A nonlocal GOTO 

A GOTO statement that transfers control to a label that is outside the current block terminates a 
subroutine. The label specified on the GOTO statement must be known within the block that 
contains the GOTO statement, and the block containing the specified label must be active when 
the GOTO is executed. 

1.2.2 Writing Calls to VAX-11 PL/I Procedures from Your Program 

Programs compiled by the VAX-11 PL/I compiler conform to the standard defined for VAX-11 
procedure calls (see Appendix C of the VAX-11 Run-Time Library Reference Manual). This standard 
describes how arguments are passed, how function values are returned, and how procedures receive 
and return control. 

The arguments in a CALL statement must agree in number, order, and data type with the parameters 
in the subroutine. There can be no optional parameters in a PL/I procedure. You must always specify 
in the entry declaration a written argument for each parameter. 

Note 

PL/I—specific procedures in the Run-Time Library are not intended to be called explic¬ 
itly from a high-level language program. If you wish to use features of PL/I in a 
program written in another language, write a PL/I subroutine to perform the opera¬ 
tion, and call the subroutine from your program. 
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For further information on argument passing, see the VAX-1 1 PL/1 User's Cuide. 

1.3 Condition Handling in VAX-11 PL/I 

This section describes the PL/I condition handling facility. For general information on VAX condition 
handling, see the VAX-11 Run-Time Library User's Guide. 

1.3.1 VAX/VMS Condition Handlers and PL/I ON-Units 

VAX-11 PL/I defines a condition handler for a condition in an ON-unit. By using the keyword 
condition names defined by PL/I and the extensions provided by VAX—11 PL/I, you can write 
ON—units to handle any possible VAX/VMS condition. A procedure can establish a separate 
ON—unit for each condition that requires handling. 

Note 

Do not use LIB$ESTABLISH to establish a condition handler in a PL/I call frame. 
LIB$ESTABLISFH establishes condition handlers only for languages that do not have 
built-in condition handling capability. 

An ON-unit is established for a condition during the execution of an ON statement that specifies that 
condition name. For example: 

ON ENDFILE (ACCOUNTS) GOTO CLOSE_FIL.ES? 

You may establish ON—units for the following conditions: 

• Conditions that occur during input/output operations 

- ENDFILE is signaled when the end-of-file occurs during the reading of a rile. 

- ENDPAGE is signaled when the last line on a page of a PRINT file is output. 

- KEY is signaled when an error occurs accessing a record by key. 

- UNDEFINEDFILE is signaled when an error occurs during the opening of a file. 


• Conditions that indicate arithmetic conditions related to hardware violations 

- FIXEDOVERFLOW is signaled when integer or fixed-point decimal values become too large to 
be expressed or cannot be assigned to the target expression. 

- OVERFLOW is signaled when floating-point values become too large to be expressed. 

- UNDERFLOW is signaled when floating-point values become too small to be expressed. 

- ZERODIVIDE is signaled when the divisor in a division operation has a value of zero. 


• General classes of exception conditions 

- ANYCONDITION responds to all conditions for which no specific ON-unit is established in the 
current block. 

— ERROR is signaled by all other language-specific and run-time errors. 
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FINISH is signaled whien a STOP statement is executed. 

VAXCONDITION responds to condition values specific to the operating system. 


When a condition is signaled in PL/1, the compiler searches each call frame in the calling sequence 
for ON-units. 

The compiler then calls the specified ON-unit, which can take any one of the following actions: 

1. Handle the condition 

A condition is handled in PL/I when the ON—unit established for the condition completes execut¬ 
ing without performing one of the following actions: 

• Executing a nonlocal GOTO 

• Calling the RESIGNAL built-in subroutine 

• Signaling another condition 

• Executing a STOP statement 

When the condition is handled, PL/I continues execution of the program at the point of 
interruption. 

2. Resignal the condition 

In VAX-11 PL/I, an ON-unit can decide not to handle a condition and request that PL/I look for 
another ON-unit to handle the condition. It calls the RESIGNAL built-in subroutine, as follows: 

CALL RESIGNAL( ); 

The RESIGNAL built-in subroutine has no arguments. 

When an ON—unit calls RESIGNAL, PL/I resumes its search of the call stack from the call frame 
in which it located the current ON—unit, and continues in the normal search sequence. The 
default condition handling performed by PL/I uses the resignal capability to continue signals that 
are not handled within the program. 

3. Unwind 

An ON—unit in a PL/I procedure can execute a nonlocal GOTO statement that transfers control 
to a previous block. In this case, PL/I performs an unwind. It removes call frames from the stack, 
beginning with the call frame created for the ON—unit, until it reaches the block containing the 
label specified in the GOTO statement. 

When an unwind occurs in VAX/VMS, each call frame in the calling sequence is examined to 
determine if a condition handler exists for that frame. If so, the handler is called with the 
condition value SS$_UNWIND, and the handler can perform block- or procedure-specific 
cleanup operations. 

4. Stop the program 

An ON—unit may terminate the program by a STOP statement. The STOP statement signals the 
FINISH condition and calls the SYS$EXIT system service to perform image exit. Thus, when a 
STOP statement passes control to a FINISH ON—unit, control returns to the STOP statement, 
which then terminates the image. If no FINISH or ANYCONDITION ON-unit exists, the program 
is terminated. 
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A FINISH or ANYCONDITION ON—unit should never include a STOP statement. If it does, the 
program enters an infinite loop. 

1.3.2 Default Condition Handling 

When a condition is signaled in VAX/VMS, the VAX/VMS condition handling facility searches the 
call stack for a condition handler, beginning with the call frame where the condition was signaled. If 
none is found, or if no handler handles the condition, a system default handler is executed. 

| n VAX-11 PL/I, the search process is different. PL/I searches each call frame in the calling sequence 
for ON-units. If it reaches the call frame at which the program was entered without locating an 
ON-unit, it performs default condition handling. The default handling depends on whether the call 
frame at which the program was entered specified the MAIN option. 

• Default Handling for Main Procedures 

If the program was entered at a procedure with the MAIN option, PL/I searches for specific 
ON-units in the following order: 

1. A VAXCONDITION ON-unit established for the specific condition value that is being signaled 

2. A PL/I ON-unit established for a PL/I condition name, if PL/I defines a name for the condition 

3. An ANYCONDITION ON-unit 

When one of these ON—units is found, it is executed and the search is ended. If the ON—unit 
completes execution by handling the condition, the program continues at the point where the 
condition was signaled. If none of the preceding is found in any call frame, the default PL/I 
condition handler performs one of the following: 

1. If the signal is the ENDPAGE condition, the default PL/I handler executes a PUT PAGE for the 
file. It then continues the program at the point where the ENDPAGE was signaled. 

2. If the signal is the ERROR condition and the severity level is fatal, the default handler signals the 
FINISH condition. Then, one of the following occurs: 

- If a FINISH ON—unit is found, it is given a chance to execute. If it executes a nonlocal 
GOTO or signals another condition, program execution continues. 

— If no FINISH ON-unit is found, or if a FINISH ON-unit completes execution by handling 
the condition, then PL/I resignals the condition to the default VAX/VMS condition handler. 
This handler prints a message, displays a traceback, and terminates the program. 

3. If the signal is any condition other than ENDPAGE or ERROR with a fatal severity, the default 
PL/I handler signals the ERROR condition with the severity of the original condition. Then, one 
of the following occurs: 

— If an ERROR ON—unit is found, it is executed. If it completes execution by handling the 
condition, the program continues. 

- If an ERROR ON—unit is not found, the default PL/I handler resignals the condition. If this 
resignal results in control returning to the system, the default VAX/VMS condition handler 
prints a message and a traceback. If the error is a fatal error, the default handler terminates 
the program; if the error is nonfatal, the program continues. 
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• Default Handling for Non-Main Procedures 

If the call frame where the procedure was entered did not specify the MAIN option, PL/I searches 
for ON—units in the following order: 

1. A VAXCONDITION ON—unit established for the condition value that is being signaled 

2. A PL/I ON-unit established for a PL/I condition name, if PL/I defines a name for the condition 

3. An ANYCONDITION ON-unit 

If one of these ON—units exists, it is executed and the search is ended. If the ON—unit completes 
execution by handling the condition, the program continues at the point where the condition was 
signaled. 

If no ON—units are found in any call frame, the condition is resignaled to the caller. If the resignal 
results in return of control to the system, the default VAX /VMS condition handler issues a message 
and prints a traceback. If the error was fatal, the default VAX/VMS handler terminates the program. 
Otherwise, the program continues. 

• Multiple Conditions 

If a second condition is signaled during the execution of an ON—unit, PL/I searches for an ON—unit 
to handle the second, beginning in the call frame where the second condition was signaled. This 
handling of multiple conditions differs from the standard behavior of the VAX/VMS condition 
handling facility, which skips the call frames that were searched to locate the current ON-unit. For 
information on VAX/VMS condition handling, see the VAX-11 Run-Time Library User's Guide. 

For further details on condition handling and error signaling in VAX-11 PL/I, refer to the VAX-11 
PL/I User's Guide. 
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Chapter 2 

File Processing Support 


This chapter describes the Run-Time Library procedures that VAX—11 PL/I compiled code invokes to 
perform file processing operations. These procedures execute the following language statements: 

• OPEN 

• CLOSE 

• GET 

• PUT 

• READ 

• WRITE 

• REWRITE 

• DELETE 

2.1 Error Messages for I/O Routines 

A PL/I I/O routine signals a PL/I condition as well as a run-time error or an RMS code. Most I/O 
routines signal the PL/I ERROR condition. They can also signal additional PL/I conditions, according 
to the following table: 


PL/I Run-Time 
Library Routine 

PL/I 

Condition 

PLI$OPEN 

UNDEFINED FILE 

PLI$GETFILE 

ENDFILE 

PLI$GETExxx 

ENDFILE 

PLI$GETLxxx 

ENDFILE 

PLI$PUTFILE 

ENDPAGE 

PLI$PUTExxx 

ENDPAGE 

PLI$PUTLxxx 

ENDPAGE 

PLISREAD 

KEY, ENDFILE 

PLI$WRITE 

KEY 

PLI$REWRITE 

KEY 

PLI$DELETE 

KEY 


For further information, see the VAX-11 PL/1 Encyclopedic Reference. 
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PLI$OPEN 


2.2 OPEN Statement 

PLI$OPEN supports the VAX-11 PL/I OPEN statement. This routine opens a PL/I file with the 
attributes and options specified by the call and file declarations. PLI$OPEN then updates the file 
control block to reflect the status of the file. It also initializes the RMS control blocks. Finally, it 
executes an RMS CREATE or OPEN and an RMS CONNECT. 

The syntax of the VAX—11 PL/I OPEN statement is: 

OPEN FILE (file-reference) 

[file-description-attribute ...] ; 


where: 

[file-description-attribute ... ] 

refers to the attributes and options specified by the user. The possible attributes and options are: 
DIRECT 

ENVIRONMENT (option,...) 

INPUT 

KEYED 

LINESIZE (expression) 

OUTPUT 

PAGESIZE (expression) 

PRINT 

RECORD 

SEQUENTIAL 

STREAM 

TITLE (expression) 

UPDATE 

The calling sequence for PLI$OPEN is: 

Format OPEN FILE ... 

generates CALL PLI$OPEN (fcb.mz.r, attr.rv.v, linesize.rl.v, pagesize.rl.v, title.rt.r, envir.mz.r) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 


attr 

Open time attributes of the file. Passed by immediate value, 
linesize 

Width of the line in number of columns. This value is stored as a fixed binary expression in the 
range 1 through 32767. Passed by immediate value. 

pagesize 

Length of the page in number of lines. This value is stored as a fixed binary expression in the 
range 1 through 32767. Passed by immediate value. 
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title 

The title, which is stored as a character varying string. Passed by reference, 
envir 

The ENVIRONMENT options for the OPEN statement. This block contains the compiled informa¬ 
tion for the options specified in the ENVIRONMENT option. Passed by reference. 

Messages 

See Section 2.1. 


PLI$CLOSE 


2.3 CLOSE Statement 

PU$CLOSE supports the VAX-11 PL/I CLOSE statement. The procedure closes a PL/I file. The syntax 
of the PL/I CLOSE statement is: 

CLOSE FILE(file-reference) [ENVIRONMENTfoption,...)] ; 

where: 

ENVIRONMENKoption,...) 

specifies one or more of the following ENVIRONMENT options: 

BATCH 

DELETE 

REWIND_ON_CLOSE 

SPOOL 

TRUNCATE 

The calling sequence for PLI$CLOSE is: 

Format CLOSE FILE ... 

generates CALL PLI$CLOSE (fcb.mz.r [.envir.mz.r]) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
envir 

The ENVIRONMENT options for the CLOSE statement. This block contains the compiled informa¬ 
tion for the options specified in the ENVIRONMENT statement. Passed by reference. 

Messages 

See Section 2.1. 
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2.4 Stream I/O 


2.4.1 The GET Statement 

Run-Time Library routines support both forms of the VAX-11 PL/I GET statement, GET EDIT and 
GET LIST. 

1. PLI$GETFILE_R6. If you have not chosen the GET STRING option, the GET statement is compiled 
into code that sets the parameters for PLI$GETFILE_R6. The code then passes control to 
PLI$GETFILE_R6 by a JSB. PLI$GETFILE_R6 initializes the run-time system to get elements from a 
stream file by performing the following functions: 

• Opens the file, if necessary 

• Allocates a buffer for the file, if necessary 

• Allocates and initializes a stream block for the GET statement 

• Processes any options specified in the GET statement 

• Returns to the in-line code 

2. PLI$GETEsrc, where src refers to an abbreviation for the data type of the input target. Table PLI-1 
(Section 1.1.4) lists these abbreviations. If you have have chosen the EDIT option with the GET 
statement, control passes to the appropriate PLI$GETEsrc routine. This routine: 

• Saves the descriptor of the input target 

• Calls a subroutine to get the next field that is under the control of the format specification 

• Calls an internal routine to convert the item to the data type of the target and stores the item in 
the target 

3. PLI$GETLsrc, where src refers to an abbreviation for the data type of the input target. Table PLI-1 
(Section 1.1.4) lists these abbreviations. If you have chosen the LIST option with the GET state¬ 
ment, control passes to the appropriate PLI$GETLsrc routine. This routine: 

• Saves the descriptor of the input target 

• Calls a subroutine to get the next item in the field 

• Calls an internal routine to convert the item to the data type of the target and stores the item in 
the target 


The syntax of the VAX—11 PL/I GET statement is: 


GET 


EDIT (input-target,...) (format-specification,...) 
LIST (input-target,...) 


FILE(file-reference) 

[SKIP [(expression)]] 
[OPTIONS(option,...)] 

STRING(expression) 
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where: 


input-target 

names one or more variables to be assigned values from the input stream. 
format-specification 

lists format items to control the conversion of data items in the input list. 

FILE(file-reference) 

specifies that the input stream is a file. The reference is to a declared file variable or file constant. 
If neither the FILE nor STRING option is specified, the FILE option defaults to the file SYSIN 
(associated with the default system input file SYS$INPUT). 

STRING(expression) 

specifies that the input stream is a character-string expression. This option cannot be used in the 
same statement with FILE, OPTIONS, or SKIP. 

SKIP [(expression)] 

advances the input file a specified number ( expression) of lines before processing the input list. 
The default for ( expression ) is to SKIP to the next line. You may choose this option only with the 
FILE option. It is always executed first. 

OPT lONSfoption,...), 

which may be used only with the FILE option, specifies one or more of the following options, 
which must be separated by commas and enclosed in parentheses. These options are ignored if 
the input device is not a terminal. 

NO_ECHO 

NO—FILTER 

PROMPT(string-expression) 

PURGE_TYPE_AHEAD 


PLI$GETFILE-R6 

If the FILE option is chosen, the GET statement causes the compiled code to place the parameters in 
registers. The code then passes control to an internal block, which sets up traceback information and 
passes control to PLI$GETFILE_R6 by a JSB. If the STRING option is chosen, the compiled code 
invokes PLI$GETSTRING (see Section 6.5). Table PLI-2 indicates the contents of the registers at the 
time of the JSB. 

Table PLI-2: Parameters for PLI$GETFILE_R6 


Argument 

Register 

skip.rw.r 

RO 

format, rz.r 

R1 

noecho.rv.v 

R2 

nofilter.rv.v 

R3 

prompt, rt.r 

R4 

purge.rv.v 

R5 

fcb.rz.r 

AP 
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The calling sequence for PLI$GETFILE_R6 is: 

I" EDIT... [FILE...]! 


Format GET 


generates 

Arguments 


[LIST... [FILE...] J 

JSB PLI$GETFILE_R6 (fcb.rz.r, skip.rw.r, format.rz.r, noecho.rv.v, nofilter.rv.v, 
prompt.rt.r, purge.rv.v) 


fcb 

The file control block the compiler generated for the file. Passed by reference, 
skip 

The value for the skip option (the number of skips). Passed by reference, 
format 


• If you choose the GET EDIT form of the GET statement, this parameter is the compiled format 
for the EDIT option, passed by reference. The block contains the compiled form of the informa¬ 
tion given in format-specification . 

• If you choose the GET LIST form of the GET statement, format is zero, 
noecho 

A value of one indicates that the NO-ECHO option is enabled. 

.nofilter 

A value of one indicates that the NO—FILTER option is enabled, 
prompt 

The information for the PROMPT option. Passed by reference, 
purge 

A value of one indicates that the PURGE_TYPE_AHEAD option is enabled. 

Messages 

See Section 2.1. 

PLI$GETE src 

2.4.1.1 GET EDIT — If you choose the GET EDIT form of the GET statement, control passes back to 
the compiled code, which may call one of the routines in the PLI$GETEDITITEM module. The routine 
called is determined by the data type of the target item. Compiled code then loads the parameters for 
the PLI$GETEsrc routine and passes control to it by a JSB. The parameters are placed in registers as 
follows: 

Table PLI-3: Parameters for Routines in the PLI$GETEDITITEM Module 


Argument 

Register 

adr.rtype.r 

RO 

prec.rl.v 

R1 

offset, rw.v* 

R2 

fcb.rz.r 

AP 


Offset is used only when the item is the unaligned bit data type. 
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The calling sequence for PLI$GETEsrc routines is: 


Data Type of 
Target Item 

Fixed-length character string 
Varying character string 
Unaligned bit string 
Aligned bit string 
Fixed-point binary 
Fixed-point decimal 
Floating-point binary 
Floating-point decimal 
Picture 


PLI$GETEDITITEM 

Routine 

JSB PLI$GETECHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$GETEVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$GETEBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 
JSB PLI$GETEABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 

JSB PLI$GETEFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

JSB PLI$GETEFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

JSB PLI$GETEFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$GETEFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$GETEPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
adr 

The input target. Passed by reference, 
prec 

A longword passed by immediate value that specifies the precision, precision/scale, or length of 
the input target, depending on its data type, according to the following table: 


Data Type 

prec 

CHAR, VCHA 

Maximum length of string in characters or bytes 

BIT, ABIT 

Length of string in bits 

FIXB 

Precision in binary digits (low-order byte) 

FIXD 

Precision in decimal digits (low-order byte) 

Scale (high-order byte) 

FLTD 

Precision in decimal digits (low-order byte) 

FLTB 

Precision in decimal digits (low-order byte) 

PIC 

Address of a picture descriptor 


offset 

If the target is of the unaligned bit data type, this word specifies the offset of the input target from 
the base address. Passed by immediate value. 

Messages 

See Section 2.1. 


File Processing Support PLI 17 




PLI$GETLsrc 


2.4.1.2 GET LIST — If you choose the GET LIST form of the GET statement, control passes back to the 
compiled code, which may call one of the routines in the PLI$GETLISTITEM module. The routine 
called is determined by the data type of the target item. Compiled code then loads the parameters for 
the PLI$GETLsrc routine and passes control to it by a JSB. The parameters are placed in registers 
according to Table PLI—4. 

Table PLI-4: Parameters for Routines in the PLI$GETLISTITEM Module 


Argument 

Register 

adr.rtype.r 

RO 

prec.rl.v 

R1 

offset, rw.v* 

R2 

fcb.rz.r 

AP 


Offset is used only when the item is the unaligned bit data type. 


The calling sequence for PLI$GETLsrc routines is: 


Data Type of 
Target Item 

Fixed-length character string 
Varying character string 
Unaligned bit string 
Aligned bit string 
Fixed-point binary 
Fixed-point decimal 
Floating-point binary 
Floating-point decimal 
Picture 


PLI$GETLDITITEM 

Routine 

JSB PLI$GETLCHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$GETLVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$GETLBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 
JSB PLI$GETLABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 

JSB PLI$GETLFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

JSB PLI$GETLFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

JSB PLI$GETLFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$GETLFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$GETLPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
adr 

The input target. Passed by reference. 


PLI 18 File Processing Support 




prec 

A longword passed by immediate value that specifies the precision, precision/scale, or length of 
the input target, depending on its data type, according to the following table: 


Data Type 

prec 

CHAR, VCHA 

Maximum length of string in characters or bytes 

BIT, ABIT 

Length of string in bits 

FIXB 

Precision in binary digits (low-order byte) 

FIXD 

Precision in decimal digits (low-order byte) 


Scale (high-order byte) 

FLTD 

Precision in decimal digits (low-order byte) 

FLTB 

Precision in decimal digits (low-order byte) 

PIC 

Address of a picture descriptor 


offset 

If the target is of the unaligned bit data type, this word specifies the offset of the input target from 
the base address. Passed by immediate value. 

Messages 

See Section 2.1. 


2.4.2 The PUT Statement 

Run-Time Library routines support both forms of the VAX—11 PL/I PUT statement: PUT EDIT and PUT 

LIST. 

1. PLI$PUTFILE_R6. If you have not chosen the PUT STRING option, the PUT statement passes 
control to PLI$PUTFILE_R6 by a JSB. PLI$PUTFILE_R6 initializes the run-time system to place 
elements in a stream output file. 

2. PLI$PUTEsrc, where src refers to an abbreviation for the data type of the output source. Table 
PLI-1 (Section 1.1.4) lists these abbreviations. If you have chosen the EDIT option with the PUT 
statement, control passes to the appropriate routine in the PLI$PUTEDITITEM module. These 
routines place items in a stream output file under the control of a format specification. Each 
routine in this module converts the source to a character string and places the string in the file 
buffer. 

3. PLI$PUTLsrc, where src refers to an abbreviation for the data type of the output source. Table 
PLI—1 (Section 1.1.4) lists these abbreviations. If you have chosen the LIST option with the PUT 
statement, control passes to the routine in the PLI$PUTLISTITEM module determined by the data 
type of the source. Each of these routines converts the source item to a character string based on 
the source data type. It then causes the elements of the source to be put into the output buffer. 
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The syntax of the VAX—11 PL /I PUT statement is: 


PUT 


EDIT (output-source,...) (format-specification,...) 

LIST (output-source,...) 

FILE(file-reference) 

[PAGE] [LINE(expression)] 

[SKIP [(expression)]] 
[OPTIONS(option,...)] 

STRING(expression) 


where: 

output-source 

specifies one or more expressions or variables to be placed in the output stream. 
format-specification 

lists format items to control the conversion of data items in the output list. 

FILE(file-reference) 

specifies that the output stream is a stream file. The reference is to a declared file variable or 
constant. If you have not specified the FILE or STRING option, PL/I defaults to the FILE option and 
uses the file SYSPRINT. 

STRING(expression) 

specifies that the output stream is the referenced character-string variable. This option cannot be 
used in the same statement with FILE, OPTIONS, PAGE, LINE, or SKIP. 

PAGE 

advances the output file to a new page before any data is transmitted. 

LINE(expression) 

inserts blank lines in the output file such that the next output data appears on the line of the page 
specified by expression , which must yield an integer. 

SKIP [(expression)] 

advances the output file the number of lines specified by expression before processing the output 
list. 

OPT IONS(option,...) 

specifies a special option. It may be used only with the FILE option. The only valid option for PUT 
statements is CANCEI_CONTROI_O. 

PLI$PUTFILE—R6 

If you choose the FILE option, the PUT statement causes the compiled code to place the parameters in 
registers. The code then passes control to an internal block, which sets up the traceback information 
and passes control to PLI$PUTFILE_R6 by a JSB. If you choose the STRING option, the compiled 
code invokes PLI$PUTSTRING (see Section 6.5). Table PLI—5 indicates the contents of the registers at 
the time of the JSB. 
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Table PLI-5: Parameters for PLI$PUTFILE_R6 


Argument 

Register 

line.rw.v 

RO 

page.rv.v 

R1 

skip.rw.r 

R2 

cancel.rv.v 

R3 

format, rz.r 

R4 

fcb.rz.r 

AP 


The calling sequence for PLI$PUTFILE_R6 is: 


Format 


PUT 


EDIT... [FILE...] 
LIST... [FILE...] 


generates JSB PLI$PUTFILE_R6 (fcb.rz.r, line.rw.v, page.rv.v, skip.rw.r, cancel.rv.v, 
format, rz.r]) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 


line 

Value of the LINE option. A value of zero indicates that the option is not enabled. An integer /, 
greater than zero, indicates that the file is advanced to line number /. 

page 

Value of the PAGE option. A value of zero indicates that the option is not enabled. A value of one 
indicates that the file is advanced to the next page. 


skip 

The word which indicates the number of skips for the SKIP option. Passed by reference, 
cancel 

Value of the CANCEI_CONTROI_O option. If this bit is zero, the option is not enabled. 

format 

• If you choose the PUT EDIT form of the PUT statement, this parameter is the compiled format 
for the EDIT option, passed by reference. This block contains the compiled form of the informa¬ 
tion given in format-specification . 

• If you choose the PUT LIST form of the PUT statement, format is zero. 

Messages 

See Section 2.1. 
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PLI$PUTEsrc 


2.4.2.1 PUT EDIT— If you choose the PUT EDIT form of the PUT statement, PLI$PUTFILE_R6 passes 
control back to the compiled code, which may call one of the routines in the PLI$PUTEDITITEM 
module. The routine called is determined by the data type of the source item. Compiled code then 
loads the parameters for the PLI$PUTEsrc routine and passes control to it by a JSB. The parameters are 
placed in registers according to Table PLI—6. 

Table PLI—6: Parameters for Routines in the PLI$PUTEDITITEM Module 


Argument 

Register 

adr.rtype.r 

RO 

prec.rl.v 

R1 

offset.rw.v* 

R2 

fcb.rz.r 

AP 


Offset is used only when the item is the unaligned bit data type. 


The calling sequence for PLI$PUTEsrc routines is: 

Data Type of PLI$PUTEDITITEM 

Source Item Routine 


Fixed-length character string 
Varying character string 
Unaligned bit string 
Aligned bit string 
Fixed-point binary 
Fixed-point decimal 
Floating-point binary 
Floating-point decimal 
Picture 


JSB PLI$PUTECFIAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$PUTEVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$PUTEBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 
JSB PLI$PUTEABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 

JSB PLI$PUTEFIXB_R6 (fcb.rz.r,adr.rl.r, prec.rl.v) 

JSB PLI$PUTEFIXD_R6 (fcb.rz.r.adr.rp.r, prec.rl.v) 

JSB PLI$PUTEFLTB_R6 (fcb.rz.r,adr.rz.r, prec.rl.v) 

JSB PLI$PUTEFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$PUTEPIC-R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
adr 

The output source. Passed by reference. 
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prec 

A longword passed by immediate value that specifies the precision, precision/scale, or length of 
the input target, depending on its data type, according to the following table: 


Data Type 

prec 

CHAR, VCHA 

Maximum length of string in characters or bytes 

BIT, ABIT 

Length of string in bits 

FIXB 

Precision in binary digits (low-order byte) 

FIXD 

Precision in decimal digits (low-order byte) 

Scale (high-order byte) 

FLTD 

Precision in decimal digits (low-order byte) 

FLTB 

Precision in decimal digits (low-order byte) 

PIC 

Address of a picture descriptor 


offset 

If the target is of the unaligned bit data type, this word specifies the offset of the source item from 
the base address. Passed by immediate value. 

Messages 

See Section 2.1. 


PLI$PUTL src 


2.4.2.2 PUT LIST — If you choose the PUT LIST form of the PUT statement, PLI$PUTFILE_R6 passes 
control back to the compiled code, which may call one of the routines in the PLI$PUTLISTITEM 
module. The routine called is determined by the data type of the source item. Compiled code then 
loads the parameters for the PLI$PUTLsrc routine and passes control to it by a JSB. The parameters are 
placed in registers according to Table PLI-7. 

Table PLI-7: Parameters for Routines in the PLI$PUTLISTITEM Module 


Argument 

Register 

adr.rtype.r 

RO 

prec.rl.v 

R1 

offset, rw.v* 

R2 

fcb.rz.r 

AP 


Offset is used only when the item is the unaligned bit data type. 
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The calling sequence for PLI$PUTLsrc routines is: 


Data Type of 
Source Item 

Fixed-length character string 
Varying character string 
Unaligned bit string 
Aligned bit string 
Fixed-point binary 
Fixed-point decimal 
Floating-point binary 
Floating-point decimal 
Picture 


PLI$PUTEDITITEM 

Routine 

JSB PLI$PUTECHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$PUTEVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

JSB PLI$PUTEBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 
JSB PLI$PUTEABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 

JSB PLI$PUTEFIXB_R6 (fcb.rz.r,adr.rl.r, prec.rl.v) 

JSB PLI$PUTEFIXD_R6 (fcb.rz.r,adr.rp.r, prec.rl.v) 

JSB PLI$PUTEFLTB_R6 (fcb.rz.r,adr.rz.r, prec.rl.v) 

JSB PLI$PUTEFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

JSB PLI$PUTEPIC-R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
adr 

The output source item. Passed by reference, 
prec 

A longword passed by immediate value that specifies the precision, precision/scale, or length of 
the input target, depending on its data type, according to the following table: 


Data type 

prec 

CHAR, VCHA 

Maximum length of string in characters or bytes 

BIT, ABIT 

Length of string in bits 

FIXB 

Precision in binary digits (low-order byte) 

FIXD 

Precision in decimal digits (low-order byte) 

Scale (high-order byte) 

FLTD 

Precision in decimal digits (low-order byte) 

FLTB 

Precision in decimal digits (low-order byte) 

PIC 

Address of a picture descriptor 


offset 

If the target is of the unaligned bit data type, this word specifies the offset of the source item from 
the base address. Passed by immediate value. 

Messages 

See Section 2.1. 
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PLI$PUT—END—R6 


2.4.2.3 Displaying the Contents of a Buffer — The PL/I Run-Time Library puts output data in the file 
buffer and writes it only when the buffer is full. If the file is a terminal, output data might not fill the 
buffer, and thus would not be output unless a PUT statement were executed. PLI$PUT_END_R6 is 
called at the end of each PUT statement to determine whether the file is a terminal and to display the 
contents of the buffer if it is. These conditions are illustrated by the following example: 

PUT LIST ('ENTER VALUE:') ; 

GET LIST (VALUE) i 

This code generates a call to PLI$PUT_END_R6 to write 'ENTER VALUE:' on the terminal. If it did 
not, the string 'ENTER VALUE:' could stay in the buffer until the next PUT statement. 

Format JSB PLI$PUT_END_R6 (fcb.rz.r) 

Arguments 

fcb (AP) 

The file control block the compiler generated for the file. Passed by reference. This address is 
passed as the Argument Pointer (AP). 

Messages 

See Section 2.1. 

2.4.3 Record I/O 


PLI$READ 

2.4.3.1 The READ Statement — PLI$READ reads a record from a PL /I file, either the next record or a 
record specified by the KEY option. The file must have either the INPUT or the UPDATE attribute. 

The format of the PL/I READ statement is: 

READ FILE (file-reference) 

(INTO (variable-reference)) 

\ SET (pointer-variable) i 

[ KEY (expression) 

KEYTO (variable-reference) J 

[ OPTIONS(option,...) ] 


where: 

OPTIONS(option,...) 

specifies one or more of the READ statement options, which are: 

FIXED_CONTROI_TO (reference) 

INDEX_NUMBER (expression) 
MATCH_GREATER [(expression)] 
MATCH_GREATER_EQUAL [(expression)] 
RECORD—ID (expression) 

RECORD_ID_TO (variable-reference) 
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The calling sequence for PLI$READ is: 


Format READ FILE ... 

generates CALL PLI$READ (fcb.mz.r, type.rv.v, [into.rz.r, into-len.rl.v, into-type.rl.v, key.rz.r, 
key-prec.rl.v, key-type.rl.v, match-gr.rv.r, match-greq.rv.r, rec-id.rq.r, 
rec-id-to.wq.r, fxd-ctrl.rz.r, fxd-ctrl-len.rl.v, fxd-ctrl-type.rl.v]) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
type 

These three bits indicate the type of READ, as follows: 

Bit 0 = 0 for INTO, 1 for SET 
Bit 1 =1 for KEY 
Bit 2 = 1 for KEYTO 

Given the decimal value of this parameter, the following combinations of READ options are 
possible: 


0 

= INTO 

no KEY 

no KEYTO 

1 

= SET 

no KEY 

no KEYTO 

2 

= INTO 

KEY 

no KEYTO 

3 

= SET 

KEY 

no KEYTO 

4 

= INTO 

no KEY 

KEYTO 

5 

= SET 

no KEY 

KEYTO 


into 

The value for INTO or SET. Passed by reference, 
into-len 

Length of the INTO value. Passed by immediate value, 
into-type 

Internal code for the data type of the INTO value. Passed by immediate value. 


key 

The value for KEY or KEYTO. Passed by reference, 
key-prec 

Precision/scale of the KEY or KEYTO value. Passed by immediate value, 
key-type 

Internal code for the data type of the KEY or KEYTO value. Passed by immediate value, 
match-gr 

The value for the MATCH_GREATER option. Passed by reference, 
match-greq 

The value for the MATCH_GREATER_EQUAL option. Passed by reference, 
rec-id 

The RECORD-ID reference. Passed by reference, 
rec-id-to 

The RECORD_ID—TO reference. Passed by reference. 
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fxd-ctrl 

The FIXED—CONTROI_TO variable. Passed by reference. 

fxd-ctrl-len 

Length of the FIXED_CONTROI_TO variable. Passed by immediate value. 

fxd-ctrl-type 

Internal code for the data type of the FIXED—CONTROI_TO variable. Passed by immediate 

value. 

Messages 

See Section 2.1. 


PLI$WRITE 


2.4.3.2 WRITE Statement — PLI$WRITE supports the VAX-11 PL/I WRITE statement. The procedure 
writes a record to a PL /I file. 

The format of the PL/I WRITE statement is: 

WRITE FILE (file-reference) FROM (variable-reference) 

[ KEYFROM (expression) ] 

[ OPTIONS(options, ... ) ] 


where: 

OPT IONS(options,...) 

specifies one or more of the following WRITE statement options: 

FIXED-CONTROI_FROM (reference) 

RECORD—ID—TO (reference) 

The calling sequence for PLI$WRITE is: 

Format WRITE FILE... 

generates CALL PLI$WRITE (fcb.mz.r, from.rz.r, from-len.rl.v, from-type.rl.v [, key.rz.r, 
key-size.rl.v, key-type.rl.v, fxd-ctrl.rz.r, fxd-ctrl-len.rl.v, fxd-ctrl-type.rl.v, 
rec-id-to.wq.r]) 


Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
from 

The value for the FROM reference. Passed by reference, 
from-len 

Word containing the length of the FROM reference. Passed by immediate value, 
from-type 

Internal code for the data type of the FROM reference. Passed by immediate value. 
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key 

The value for the KEY reference. Passed by reference, 
key-size 

Size or precision of the KEY. 
key-type 

Internal code for the data type of the KEY. Passed by immediate value, 
fxd-ctrl 

The FIXED—CONTROI_FROM reference. Passed by reference. 

fxd-ctrl-len 

Length of the FIXED_CONTROI_FROM reference. Passed by immediate value. 

fxd-ctrl-type 

Internal code for the data type of the FIXED_CONTROI_FROM reference. Passed by immediate 

value. 

rec-id-to 

The RECORD_ID_TO reference. Passed by reference. 

Messages 

See Section 2.1. 

PLI$REWRITE 

2.4.3.3 The REWRITE Statement — PLI$REWRITE supports the VAX-11 PL/I REWRITE statement. 
The procedure replaces a record in a PL/I file, either the current record or the record specified by the 
KEY option. The file must have the UPDATE attribute. 

The format for the PL/I REWRITE statement is: 

REWRITE FILE (file-reference) 

[ FROM (variable-reference) 

[ KEY (expression) ] ] 

[ OPTIONS(options,...) ] 


where: 

OPT IONS(options,...) 

specifies one or more of the following REWRITE statement options: 

FIXED_CONTROI_FROM (variable-reference) 

INDEX_NUMBER (expression) 

MATCH_GREATER [(expression)] 

MATCH_GREATER_EQUAL [(expression)] 

RECORD_ID (expression) 

RECORD_ID_TO (variable-reference) 

The calling sequence for PLI$REWRITE is: 

Format REWRITE FILE... 

generates CALL PLI$REWRITE (fcb.mz.r, [from.rz.r, from-len.rl.v, from-type.rl.v, key.rz.r, 

key-size.rl.v, key-type.rl.v, key-num.rbu.r, match-gr.rv.r, match-greq.rv.r, 
rec-id.rq.r, rec-id-to.wq.r, fxd-ctrl.rz.r, fxd-ctrl-len.rl.v, fxd-ctrl-type.rl.v]) 
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Arguments 


fcb 

The file control block the compiler generated for the file. Passed by reference, 
from 

The FROM reference. Passed by reference, 
from-len 

Word containing the length of the FROM reference. Passed by immediate value, 
from-type 

Internal code for the data type of the FROM reference. Passed by immediate value. 


key 

The KEY reference. Passed by reference, 
key-size 

Size or precision of the KEY. Passed by immediate value, 
key-type 

Internal code for the data type of the KEY. Passed by immediate value, 
key-num 

The INDEX-NUMBER. Passed by reference, 
match-gr 

The value for the MATCF1—GREATER option. Passed by reference, 
match-greq 

The value for the MATCH_GREATER_EQUAL option. Passed by reference, 
rec-id 

The value for the RECORD-ID option. Passed by reference, 
rec- id-to 

The value for the RECORD—ID_TO option. Passed by reference, 
fxd-ctrl 

The FIXED-CONTROI_FROM reference. Passed by reference. 

fxd-ctrl-len 

Length of the FIXED-CONTROI_FROM reference. Passed by immediate value. 

fxd-ctrl-type 

Internal code for the data type of the FIXED-CONTROI_FROM reference. Passed by immediate 

value. 

Messages 

See Section 2.1. 


PLI$DELETE 

2.4.3.4 DELETE Statement — PLI$DELETE supports the VAX—11 PL/I DELETE statement. The routine 
deletes a record from a PL/I file, either the current record or the record specified by the KEY option. 
The file must have the UPDATE attribute. 
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The format for the PL/I DELETE statement is: 

DELETE FILE(file-reference) [ KEY (expression) ] 
[ OPTIONSfoption,...) ] ; 


where: 

KEY (expression) 

specifies that the record to be deleted is to be located using the key specified by expression. If KEY 
is chosen, the file must have the KEYED attribute. 

OPTIONS(option,...) 

specifies one or more of the following options: 

FAST_DELETE 

INDEX-NUMBER (expression) 

MATCH-GREATER [(expression)] 

MATCH_GREATER_EQUAL [(expression)] 

RECORD-ID (expression) 

The calling sequence for PLI$DELETE is: 

Format DELETE FILE... 

generates CALL PLI$DELETE (fcb.mz.r, [key.rz.r, key-size.rl.v, key-type.rl.v, fast-del.rv.r, 
key-num.rbu.r, rec-id.rq.r, match-gr.rv.r, match-greq.rv.r]) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 


key 

The KEY of the record to be deleted. Passed by reference, 
key-size 

Size or precision of the KEY. Passed by immediate value, 
key-type 

Internal code for the data type of the KEY. Passed by immediate value, 
fast-del 

The FAST_DELETE reference. Passed by reference, 
key-num 

The number that indicates which index of the file to use. Passed by reference, 
rec-id 

The value for the RECORD-ID reference. Passed by reference, 
match-gr 

The value for the MATCH—GREATER reference. Passed by reference, 
match-greq 

The value for the MATCH—GREATER-EQUAL reference. Passed by reference. 

Messages 

See Section 2.1. 
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Chapter 3 

Auxiliary I/O Support 


VAX-11 Record Management Services (RMS) provides a set of file-handling services. You can invoke 
several of these from a VAX-11 PL/I program through built-in subroutines. Chapter 3 describes the 
Run-Time Library procedures that support these subroutines. Table PLI—8 summarizes the functions of 
the RMS built-in subroutines. For more information on the RMS file-handling services, see the 
VAX-11 Record Management Services Reference Manual. 


Table PLI—8: Summary of File-Handling Built-in Subroutines 


PL/I 

Subroutine 

RMS 

Service 

Function 

DISPLAY 

DISPLAY 

Returns information about a file. 

EXTEND 

$EXTEND 

Increases the allocation of a file. 

FLUSH 

$FLUSH 

Requests the file system to write all buffers onto disk to preserve a file's current status. 

NEXT_VOLUME 

$NXTVOL 

Begins processing the next volume in a multivolume tape set. 

REWIND 

$REWIND 

Positions a file at its beginning. 

SPACEBLOCK 

$SPACE 

Positions a file forward or backward a specified number of blocks. 


PLI$DISPLAY 


3.1 DISPLAY Built-in Subroutine 

PLI$DISPLAY supports the DISPLAY built-in subroutine. It calls the RMS Display service (MACRO 
instruction: $DISPLAY), which returns the attributes of a PL/I file. If the file is closed, PLI$DISPLAY 
opens it and fills in the user's display block. For further information, see the VAX—11 PL/1 User's 
Guide. 

Format CALL DISPLAY (file-reference, variable-reference) ; 

generates CALL PLI$DISPLAY (fcb.mz.r, display-block.ra.v, disp-size.rl.v, disp-type.rl.v) 
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Arguments 


fcb 

The file control block the compiler generated for the file. Passed by reference, 
display-block 

The user's display block. Passed by reference, 
disp-size 

Size of the display block. Passed by immediate value, 
disp-type 

Data type of the display block. Passed by immediate value. 

PLI$EXTEND 

3.2 EXTEND Built-in Subroutine 

PU$EXTEND supports the EXTEND built-in subroutine by calling the RMS Extend service (MACRO 
instruction: SEXTEND). PLI$EXTEND extends the disk allocation of a PL/I file. If the file is closed, 
the routine opens it and then extends it by the specified number of blocks. 

Format CALL EXTEND (file-reference, integer-expression) ; 

generates CALL PLI$EXTEND (fcb.mz.r, blocks.rl.v) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
blocks 

Number of blocks to extend the file ( integer-expression ). Passed by immediate value. 


PLI$FLUSH 

3.3 FLUSH Built-in Subroutine 

PLI$FLUSH supports the FLUSH built-in subroutine. This routine calls the RMS Flush service 
(MACRO instruction: $FLUSH), which checkpoints a file during its processing and ensures that all 
record activity up to the point at which the MACRO instruction executes is actually reflected in the 
file. PLI$FLUSH writes all modified RMS buffers and preserves all the attributes of the file. 

Format CALL FLUSH (file-reference) ; 

generates CALL PLI$FLUSH (fcb.mz.r) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 
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PLI$NXTVOL 


3.4 NEXT-VOLUME Built-in Subroutine 

PLI$NXTVOL invokes the RMS Next volume service (MACRO instruction: $NXTVOL) to support the 
NEXT-VOLUME built-in subroutine. When you call this routine, RMS advances to the first file 
section on the next tape volume. File sections occur when a file is written on more that one volume; 
the portion of the file on each of the volumes constitutes a file section. 

When you call PLI$NXTVOL for an input file, the following occurs: 

• If the current volume is the last volume of the set, RMS reports end-of-file. 

• If another file section exists, the current volume is rewound and a request to mount the next volume 
is issued to the operator. 

• The header label (HDR1) of the file section on the newly mounted volume is read. If it is not the 
volume being sought, the operator is requested to mount the correct volume. 

For an output file, the following occurs: 

• The file section on the current volume is closed with the appropriate end-of-volume labels, and the 
volume is rewound. 

• The next volume is mounted. 

• A file with the same file name and the next higher file section number is opened for output, and 
processing continues. 

Format CALL NEXT-VOLUME (file-reference) ; 

generates CALL PLI$NXTVOL (fcb.mz.r) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 


PLI$REWIND 


3.4.1 REWIND Built-in Subroutine 

PLI$REWIND supports the REWIND built-in function by calling the RMS Rewind service (MACRO 
instruction: $REWIND). PLI$REWIND positions a file so the first record in the file or index will be 
read next. If the file is closed, this routine opens it. 

The position of the file following the call to the REWIND subroutine is as follows: 

• If the file is a sequential file, the Rewind service positions the file to the first record in the file. 

• If the file is a relative file, the Rewind service positions the file to the first occupied cell. 
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• If the file is an indexed sequential file, the Rewind service positions the file at the lowest key value 
in the current index. 


• If the magnetic tape file is on a single volume, the volume is rewound. If the tape file exists on a 
multivolume tape set, the REWIND built-in subroutine rewinds the file to the beginning of the 
volume set. 

Format CALL REWIND (file-reference) ; 

generates CALL PLI$REWIND (fcb.mz.r) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference. 

PLI$SPACEBLOCK 

3.4.2 SPACEBLOCK Built-in Subroutine 

PLISSPACEBLOCK supports the SPACEBLOCK built-in subroutine. It calls the RMS Space service 
(MACRO instruction: SSPACE), which positions a file forward or backward a specified number of 
blocks. If the file is closed, the procedure opens it. 

Format CALL SPACEBLOCK (file-reference, integer-expression) ; 

generates CALL PLISSPACEBLOCK (fcb.mz.r, blocks.rl.v) 

Arguments 

fcb 

The file control block the compiler generated for the file. Passed by reference, 
blocks 

Number of blocks to space the file. Passed by immediate value. 
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Chapter 4 

String Manipulation 


This chapter describes the Run-Time Library procedures that perform operations on strings. These 
procedures manipulate two types of strings: 

• Bit strings 

• Character strings 

4.1 Manipulation of Bit Strings 

The VAX-11 Run-Time Library contains procedures that perform logical operations and other manip¬ 
ulations, such as moving and comparing, on bit strings. PL/I uses these routines to perform bit 
operations on two types of strings: 

1. Run-time variable-length bit strings. These are strings whose size has been declared as a variable, 
so that size can only be determined at run-time. 

2. Fixed-length strings longer than 32 bits. 

PL/I passes parameters to all bit functions as a pair consisting of a source and its dope vector. These 
are defined as follows: 

• Source 

- If the source is an unaligned bit string (a VAX—11 unsigned variable bit field), then the parameter 
is srcn.rqu.r, where n is the number of the source (for example, for sourcel , n is one) and src is 
a quadword containing the base address and offset of the bit string: 


srcn.rqu.r 


31 0 


data base address 
offset 

63 32 
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- If the source is of any other data type, then the parameter is srcn.rv.r, where n is the number of 
the source (e.g., for source !, n is one) and src is the address of the source. 

• Source dope vector 

A dope vector is a longword that gives the data type and length of the parameter. The dope vector 
for the source string is defined as follows: 


src-dope.rz.r 


31 16 15 0 


Code for PL/I 

Size 

data type 



Note 

Some of the PL/I string manipulation routines take the return-string parameter in R1. 
They also pass arguments by dope vector, rather than by immediate value, reference, 
or descriptor. These routines thus do not conform to the VAX-11 Procedure Calling 
Standard. You should not call these routines explicitly from a high-level language. 

Table PLI—9 summarizes the functions of these routines. 

Table PLI—9: PL/I Library Procedures for Bit-String Manipulation 


Procedure 

Function 

PLI$ANDBIT 

Performs the AND operation on two bit strings. 

PLI$BOOLBIT 

Performs the BOOL built-in function. 

PLI$ORBIT 

Performs the OR operation on two bit strings. 

PLI$NOTBIT 

Performs the NOT operation on a bit string. 

PLI$MOVBIT 

Moves a bit string. 

PLI$CATBIT 

Concatenates two bit strings. 

PLISCMPBIT 

Compares two bit strings. 

PLI$INDEXBIT 

Performs the INDEX built-in function on a bit string. 


PLI$ANDBIT 

4.1.1 The AND Operator 

The PLI$ANDBIT function performs the logical AND operation on two bit strings. The operation is 
performed bit by bit, starting with the most significant bit. This procedure is invoked from a PL/I 
program by a function call. 

The calling sequence for PLI$ANDBIT is: 

Format (sourcel) & (source2) 

generates CALL ret-string.wv.r = PLI$ANDBIT (srcl.rz.r, srcl-dope.rz.r, 

src2.rz.r, src2-dope.rz.r) 
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Arguments 


srcl 

The first string ( source 7). Passed by reference, 
srcl—dope 

The dope vector for srcl (see Section 4.1). Passed by reference. 
src2 

The second string (source2). Passed by reference. 
src2-dope 

The dope vector for srcl (see Section 4.1). Passed by reference, 
ret-string (R1) 

The return string, returned by reference in R1. The length of the string returned is always the 
length of the longer source string. 


PLI$BOOLBIT 

4.1.2 The BOOL Built-in Function 

PLI$BOOLBIT supports the BOOL built-in function. The procedure performs a Boolean operation on 
two bit strings using a key stored in a third. It returns the result as a bit string with the length of the 
longest of the two arguments. This procedure is invoked from a PL/I program by a function call. 

The syntax of the BOOL built-in function is: 

BOOL (stringl, string2, operation-string) 

where: 

Stringl and string2 

are bit strings of any length. 

Operation-string 

is a four-bit string that specifies the Boolean operation to be performed on the source strings. The 
bits of the operation-string are defined by the following table: 

Given operation-string = z 
stringl = x 
string2 = y 

ret-string(i) = z(1) if x(i) = 0 and y(i) = 0 

z(2) if x(i) = 0 and y(i) = 1 

z(3) if x(i) = 1 and y(i) = 0 

z(4) if x(i) = 1 and y(i) = 1 

The calling sequence for PLI$BOOLBIT is: 

Format BOOL (stringl, string2, operation-string) 

generates CALL ret-string.wv.r = PLI$BOOLBIT (srcl.rz.r, srcl-dope.rz.r, src2.rz.r, 
src2-dope.rz.r, src3.rz.r, src3-dope.rz.r) 
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Arguments 


srcl 

The first source string (stringl). Passed by reference, 
srcl-dope 

The dope vector for stringl. Passed by reference. 
src2 

The second source string (string2). Passed by reference. 
src2-dope 

The dope vector for string2. Passed by reference. 
src3 

The string that specifies the Boolean operation to be performed (operation-string). Passed by 
reference. 

src3—dope 

The dope vector for operation-string. Passed by reference, 
ret-string (R1) 

The return string, returned by reference in R1. 

PLI$ORBIT 


4.1.3 The OR Operator 


PLI$ORBIT supports the VAX—11 PL/I OR operator. The OR operator is a vertical marker placed 
between two operands (sourcel and source2). It can be a vertical line, a broken vertical line, or an 
exclamation point, depending on the terminal you are using. The procedure performs the logical 
inclusive OR operation. It compares the two bit-string operands bit by bit. If either of two correspond¬ 
ing bits is one, the resulting bit is one; otherwise, the resulting bit is zero. This procedure is invoked 
from a PL/I program by a function call. 


Format 


generates 


(sourcel) ! (source2) 

(sourcel) | (source2) 

(sourcel) | (source2) 

CALL ret-string.wv.r = PLI$ORBIT (srcl.rz.r, srcl-dope.rz.r, 
src2.rz.r, src2-dope.rz.r) 


Arguments 


srcl 

The string (sourcel) to the left of the OR operator (|). Passed by reference, 
srcl—dope 

The dope vector for srcl (see Section 4.1). Passed by reference. 


src2 

The string (source2) to the right of the OR operator (|). Passed by reference. 
src2—dope 

The dope vector for src2 (see Section 4.1). Passed by reference. 
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ret-string (R1) 

The return string, returned by reference in R1. The length of the string returned equals the length 
of longer source string. 


PLI$NOTBIT 


4.1.4 The NOT Operator 

PLI$NOTBIT performs a logical NOT operation on a bit string. This procedure is invoked from a PL/I 
program by a function call. 

Format "(sourcel) 

generates CALL ret-string.wv.r = PLI$NOTBIT (srcl.rz.r, srcl-dope.rz.r) 

Arguments 

srcl 

The source bit string (sourcel). Passed by reference, 
srcl-dope 

The dope vector for srcl (see Section 4.1). Passed by reference, 
ret-string (R1) 

The return string, returned by reference in R1. The length of the string returned equals the length 
of the source string. 


PLI$MOVBIT 


4.1.5 The MOVE Operator 

PLI$MOVBIT performs a MOVE operation on a bit string. This procedure is invoked from a PL/I 
program by a function call. 

Format sourcel = source2 

generates CALL ret-string.wv.r = PLI$MOVBIT (srcl.rz.r, srcl-dope.rz.r, 
target.rz.r, target-dope.rz.r) 

Arguments 

srcl 

The source bit string {sourcel). Passed by reference, 
srcl—dope 

The dope vector far srcl (see Section 4.1). Passed by reference, 
target 

The target, if it is not bit aligned. Passed by reference, 
target-dope 

The target dope vector. Passed by reference, 
ret-string (R1) 

The return string, if target is bit aligned. This parameter is returned by reference in R1. The length 
of the string returned is the length of the source string. 
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PLI$CATBIT 


4.1,6 The Concatenation Operator 

PLI$CATBIT performs a concatenation operation on two bit strings. The procedure produces a single 
string from two source strings. This procedure is invoked from a PL/I program by a function call. 

I (sourcel) || (source2) ; 

(sourcel) Jj (source2) ; 

(sourcel) !! (source2) ; 

[Note: operator is a pair of exclamation points, vertical lines, 
or broken vertical lines, depending on terminal.] 

generates CALL ret-string.wv.r = PLI$CATBIT (srcl.rz.r, srcl-dope.rz.r, 
src2.rz.r, src2-dope.rz.r) 

Arguments 

srcl 

The string ( sourcel ) to the left of the CONCATENATE operator (||, j| , or !!). Passed by reference, 
srcl-dope 

The dope vector for srcl (see Section 4.1). Passed by reference. 
src2 

The string (source2) to the right of the CONCATENATE operator (||, || , or !!). Passed by reference. 
src2-dope 

The dope vector for src2 (see Section 4.1). Passed by reference, 
ret-string (R1) 

The return string, returned by reference in R1. The length of the string returned equals the sum of 
the lengths of the source strings. 


PLI$CMPBIT 


4.1.7 Relational Operators 

PU$CMPBIT compares two bit strings bit by bit, from the most significant to the least significant. If the 
operands have different lengths, PL/I extends the smaller operand with zeros in the direction of least 
significance. Null bit strings are always equal. If the condition specified by the relational operator is 
true, the procedure returns the value one in RO; if the condition is not true, it returns zero. This 
procedure is invoked from a PL/I program by a function call. 
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The PL/I relational operators are: 


Operator 

Operation 

< 

Less than 

A < 

Not less than 

< = 

Less than or equal to 

= 

Equal to 

A = 

Not equal to 

> = 

Greater than or equal to 

> 

Greater than 

A > 

Not greater than 


Format sourcel relational operator source2 

generates CALL ret-value.wv.v = PLI$CMPBIT (srcl.rz.r, srcl-dope.rz.r, 
src2.rz.r, src2-dope.rz.r) 

Arguments 

srcl 

The string ( sourcel ) to the left of the relational operator. Passed by reference, 
srcl-dope 

The dope vector for srcl (see Section 4.1). Passed by reference. 
src2 

The string (source2) to the right of the relational operator. Passed by reference, 
src 2-dope 

The dope vector for srcl (see Section 4.1). Passed by reference, 
ret-value (RO) 

If the condition is true, ret-value equals zero. Otherwise, ret-value equals one. This value is 
returned in RO. 


PLI$INDEXBIT 


4.1.8 The INDEX Built-in Function 

PLI$INDEXBIT supports the INDEX built-in function. The procedure searches source2 for an occur¬ 
rence of sourcel . It returns a value that indicates the position of the leftmost occurrence of sourcel 
within source2. If no match occurs, or if either of the arguments is zero, the procedure returns zero. 
This procedure is invoked from a PL/I program by a function call. 

Format INDEX (source2, sourcel) 

generates CALL ret-value.wv.v = PLI$INDEXBIT (srcl.rz.r, srcl-dope.rz.r, 
src2.rz.r, src2-dope.rz.r) 
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Arguments 


srcl 

The string ( source!) to be used as the index for the search. Passed by reference, 
srcl-dope 

The dope vector for srcl (see Section 4.1). Passed by reference. 
src2 

The string ( source2) to be searched. Passed by reference. 
src2—dope 

The dope vector for src2 (see Section 4.1). Passed by reference, 
ret-value (RO) 

If sourcel is found within source2, ret-value equals the offset to the bit where the match occurred. 
If the string is not found, ret-value equals zero. This value is returned in RO. 

4.2 Manipulation of Character Strings 

PL/I passes parameters to all character string functions as a pair consisting of a source and its dope 
vector. These are defined as follows: 

• Source (src) 

This parameter is the address of the source character string, srcn.rt.r, where n is the number of the 
source (for example, for stringl , n is one). 

• Source dope vector (src-dope) 

The source dope vector is defined as follows: 


31 16 15 0 


Code for PL/I 

Size 

data type 



PLI$MOVTRANCHAR 

4.2.1 The TRANSLATE Built-in Function 

PLI$MOVTRANCHAR supports the TRANSLATE built-in function. Given a character-string argument 
(source), the TRANSLATE built-in function replaces occurrences of an old character (oldchars) with a 
corresponding translation character ( translation ) and returns the resulting string. Inline code performs 
the TRANSLATE function when two operands are specified; when three operands are specified, the 
code calls the Run-Time Library procedure. This procedure is invoked from a PL/I program by a 
function call. 

Format TRANSLATE (source, translation, oldchars) 

generates CALL ret-string.wt.r = PLI$MOVTRANCHAR (src.rt.r, src-dope.rz.r, trans-table.rt.r, 
trans-table-dope.rz.r, trans-string.rt.r, trans-string-dope.rz.r) 


PLI 42 String Manipulation 






Arguments 


src 

The source string {source). Passed by reference, 
src-dope 

The dope vector for the source string (source). Passed by reference, 
trans-table 

The translation table (translation). Passed by reference, 
trans-table-dope 

The dope vector for the translation table (translation). Passed by reference, 
trans-string 

The translation string (oldchars). Passed by reference, 
trans-string-dope 

The dope vector for the translation string (oldchars). Passed by reference, 
ret-string 

The return string, returned by reference in RO. 


PLI$VERIFY 


4.2.2 The VERIFY Built-in Function 

PLI$VERIFY supports the PL/I VERIFY built-in function. This function compares a string with a test 
string and verifies that all characters that appear in the string also appear in the test string. If not, the 
VERIFY built-in function returns a fixed-point binary integer that indicates the position of the first 
character in the string that is not present in the test string. If each character in the string is also in the 
test string, the function returns zero. This procedure is invoked from a PL/I program by a function 
call. 


Format VERIFY(string1, string2) 

generates CALL ret-value.wt.v = PLI$VERIFY (srcl.rt.r, srcl-dope.rz.r, src2.rt.r, 
src2-dope.rz.r) 

Arguments 

srcl 

The string to be verified (stringl). Passed by reference, 
srcl-dope 

The dope vector for stringl . Passed by reference. 
src2 

The test string (string2). Passed by reference. 
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src2-dope 

The dope vector for string2. Passed by reference, 
ret-value 

A fixed-point binary integer that indicates the results of the VERIFY built-in function. This value is 
returned in RO. 

• If all the characters in stringl are in string!, ret-value equals zero. 

• If there are characters in stringl that are not in string.2, ret-value equals the position within the 
string of the first such character. 
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Chapter 5 

Data Type Conversion and Mathematics Procedures 


5.1 Data Type Conversion 

5.1.1 Conversion of Data Types in PL /I 

VAX—11 PL/I supports the following computational data types: 

• Arithmetic data types 

— Fixed-point binary (for integers) 

— Fixed-point decimal (for decimal integers and fractions) 

— Floating-point binary 

— Floating-point decimal 

• Picture data (fixed-point decimal data stored as formatted character strings) 

• Character-string data (sequences of ASCII characters) 

— Fixed-length character strings 

— Variable-length character strings 

• Bit-string data (sequences of binary digits) 

— Aligned bit strings 

— Unaligned bit strings 
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Table PLI-1 (Section 1.1.4) indicates the correspondence between these PL/I data types and the 
VAX-11 data types, as established by the VAX-11 Procedure Calling Standard. VAX-11 PL/I per¬ 
forms conversions between these data types in assignment and arithmetic operations. Table PLI-10 
illustrates the contexts in which conversions take place. 

Table PLI—10: Contexts in which PL/I Converts Data 


Context 

Conversion Performed 

target = expression ; 

In an assignment statement, the given 
expression is converted to the data type 
of the target. 

entry-name 

RETURNS 
(attribute...) ; 

In a RETURN statement, the specified 
value is converted to the data type 
specified by the RETURNS option on the 
PROCEDURE or ENTRY statement. 

RETURN (value) ; 


x + y 
x- y 

x * y 
x / y 

x ** y 

In any arithmetic expression, if operands 
do not have the same data type, they are 
converted to a common data type before 
the operation. 

BINARY (expression) 

BIT (expression) 
CHARACTER (expression) 
FIXED (expression) 

FLOAT (expression) 

OFFSET (variable) 

POINTER (variable) 

PL/I provides built-in functions that 
perform specific conversions. 

PUT LIST (item,...) 

Items in a PUT LIST statement are 
converted to character-string data. 

GET LIST (item,...) 

Character-string input data is converted 
to the data type of the target item. 

PAGESIZE (expression) 
LINESIZE (expression) 

DO control variable... 

SKIP (expression) 

LINE (expression) 

Values specified for various options to 

PL/I statements must be converted to 
integer values. 


5.1.2 PL/I Run-Time Library Conversion Routines 

PL/I Run-Time Library routines convert any data type to any other. The compiler invokes these 
routines by a call, although their parameters are passed in registers. The name and arguments for 
each routine are standardized, so that you can call any conversion routine if you know the source and 
destination data types. 

The entry point of a conversion routine is specified by the following formula: 

PLI$<srcxdest>_R6 
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src 

An abbreviation for the data type of the source. 
dest 

An abbreviation for the data type of the destination. 

Table PLI-1 (Section 1.1.4) lists the data types, their abbreviations, and the VAX-11 data types to 
which they correspond. 

Note that the library contains routines, such as PLI$FIXDFIXD, to convert one data item to another of 
the same type. These routines are necessary for two cases: 

• The compiler sometimes uses an "x to x" conversion routine to assign a source to a target when 
they are of the same data type, but have different precisions. 

• An "x to x" conversion routine is called by other run-time routines to perform assignments of 
variables whose extent values are unknown at compile time. 

All the conversion routines receive their parameters in the same registers. Table PLI-11 specifies the 
argument list for all the conversion routines and the registers in which they are passed. 


Table PLI-11: Argument List and Register Usage for Data Type Conversion Procedures 


Argument 

Register 

Definition 

src 

RO 

The source value, passed by reference 

src-dope 

R1 

Dope vector for the source value, passed 
by reference 

dest 

R2 

The destination value, passed by reference 

dest-dope 

R3 

Dope vector for the destination value, 
passed by reference 

src-offset 

R5 

Bit offset to the source, for unaligned 
bit strings, passed by immediate value 

dest-offset 

R6 

Bit offset to the destination, for 
unaligned bit strings, passed by 
immediate value 


Note that data is passed to a conversion routine as a pair consisting of the address of the source or 
destination and a corresponding dope vector. For a description of this method for passing parameters, 
see Section 4.1. 


5.1.3 Conversion to Arithmetic Data Types 

Conversion to arithmetic data types takes place when an expression is assigned to an arithmetic 
variable or when an operand is converted for use in an arithmetic operation. Sections 5.1.3.1 to 
5.1.6.4 include the rules for conversion to arithmetic data types and descriptions of the Run-Time 
Library routines that perform these conversions. 
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5.1.3.1 Conversions from Arithmetic to Arithmetic Data Types — This section describes arithmetic to 
arithmetic conversions. The following rules govern these conversions: 

• If the target is a fixed-point variable (binary or decimal), then the FIXEDOVERFLOW condition is 
signaled when the source value has a larger number of integral digits than are specified in the 
precision of the target. If the target is a fixed-point binary variable, FIXEDOVERFLOW is signaled if 
the source value exceeds the storage allocated for the target, which may be larger than the target's 
declared precision. 

• If the target is a variable of type FIXED DECIMAL(p,q) and the source has more than q fractional 
digits, then the excess fractional digits of the source are truncated, and no condition is signaled. If 
the source has fewer than q fractional digits, the source value is padded on the right with zeros. 

• If the target is a floating-point value and the absolute value of the source is too large to be 
represented by a VAX—11 floating-point type, then the OVERFLOW condition is signaled, and the 
value of the target is undefined. If the absolute source value is too small to be represented, the 
value zero is assigned to the target, and, if enabled, the UNDERFLOW condition is signaled. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 

PLI$FLTBFIXB_R6 

PLI$FLTBFIXB_R6 converts a floating-point binary number to its corresponding fixed-point binary 
representation. 

generates CALL PLI$FLTBFIXB_R6 (src.rz.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$FIXBFIXB_R6 converts a fixed-point binary number to its corresponding fixed-point binary 
representation. 

generates CALL PLI$FIXBFIXB_R6 (src.rl.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$FIXDFIXB_R6 converts a fixed-point decimal number to its corresponding fixed-point binary 
representation. 

generates CALL PLI$FIXDFIXB_R6 (src.rp.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$FLTDFIXB_R6 converts a floating-point decimal number to its corresponding fixed-point binary 
representation. 

generates CALL PLI$FLTDFIXB_R6 (src.rz.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$FIXBFIXD_R6 converts a fixed-point binary number to its corresponding fixed-point decimal 
representation. 

generates CALL PLI$FIXBFIXD_R6 (src.rl.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$FIXDFIXD_R6 converts a fixed-point decimal number to its corresponding fixed-point decimal 
representation. 

generates CALL PLI$FIXDFIXD_R6 (src.rp.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$FLTBFIXD_R6 converts a floating-point binary number to its corresponding fixed-point decimal 
representation. 

generates CALL PLI$FLTBFIXD_R6 (src.rz.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 
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PLI$FLTDFIXD_R6 converts a floating-point decimal number to its corresponding fixed-point decimal 
representation. 

generates CALL PLI$FLTDFIXD_R6 (src.rz.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$FIXBFLTB_R6 converts a fixed-point binary number to its corresponding floating-point binary 
representation. 

generates CALL PLI$FIXBFLTB_R6 (src.rl.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FIXDFLTB_R6 converts a fixed-point decimal number to its corresponding floating-point binary 
representation. 

generates CALL PLI$FIXDFLTB_R6 (src.rp.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FLTBFLTB_R6 converts a floating-point binary number to its corresponding floating-point binary 
representation. 

generates CALL PLI$FLTBFLTB_R6 (src.rz.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FLTDFLTB_R6 converts a floating-point decimal number to its corresponding floating-point binary 
representation. 

generates CALL PLI$FLTDFLTB_R6 (src.rz.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FIXBFLTD_R6 converts a fixed-point binary number to its corresponding floating-point decimal 
representation. 

generates CALL PLI$FIXBFLTD_R6 (src.rl.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FIXDFLTD_R6 converts a fixed-point decimal number to its corresponding floating-point decimal 
representation. 

generates CALL PLI$FIXDFLTD_R6 (src.rp.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FLTBFLTD_R6 converts a floating-point binary number to its corresponding floating-point deci¬ 
mal representation. 

generates CALL PLI$FLTBFLTD_R6 (src.rz.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FLTDFLTD_R6 converts a floating-point decimal number to its corresponding floating-point deci¬ 
mal representation. 

generates CALL PLI$FLTDFLTD_R6 (src.rz.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 
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5.1.3.2 Conversions from Pictured to Arithmetic Data Types — All pictured values have the associ¬ 
ated attributes FIXED DECIMAL(p,g), where p is the total number of characters in the picture that 
represent decimal digits, and q is the number of these digits to the right of the V character. If there is 
no V, q is zero. In a picture-to-arithmetic conversion, the fixed-point decimal value associated with 
the pictured value is assigned to the target. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 

PLISPICFIXB 


PLI$PICFIXB_R6 converts a picture data item to its corresponding fixed-point binary representation. 

generates CALL PLI$PICFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$PICFIXD_R6 converts a picture data item to its corresponding fixed-point decimal representation. 

generates CALL PLI$PICFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$PICFLTB_R6 converts a picture data item to its corresponding floating-point binary 
representation. 


generates 


CALL PLI$PICFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 


PLI$PICFLTD_R6 converts a picture data item to its corresponding floating-point decimal 
representation. 


generates 

Arguments 


CALL PLI$PICFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 


src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference. 


dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 


5.1.3.3 Conversions from Bit Strings to Arithmetic Data Types — When a bit-string value is 
assigned to an arithmetic variable, PL/I treats the bit string as a fixed-point binary value. A string of 
type BIT(n) is converted to FIXED BINARY(m), where m equals either n or 31, whichever is smaller 
(m = min(n,31)). 

If the converted value is greater than or equal to 2**31, then FIXEDOVERFLOW is signaled. The 
leftmost bit in the output string from the PUT LIST statement is the most significant bit in the fixed- 
point binary value, not its sign. If the bit string is null, the fixed-point binary value is zero. 

The intermediate fixed-point binary value is then converted to the target arithmetic type. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 
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PLI$BITFIXB—R6 


PLI$BITFIXB_R6 converts an unaligned bit string to its corresponding fixed-point binary 

representation. 

generates CALL PLI$BITFIXB_R6 (src.rvu.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r, 
src-offset.rv.v) 

PLI$ABITFIXB_R6 converts an aligned bit string to its corresponding fixed-point binary 

representation. 

generates CALL PLI$ABITFIXB_R6 (src.rv.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$BITFIXD_R6 converts an unaligned bit string to its corresponding fixed-point decimal 

representation. 

generates CALL PLI$BITFIXD_R6 (src.rvu.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r, 
src-offset.rt.r) 

PLI$ABITFIXD_R6 converts an aligned bit string to its corresponding fixed-point binary 

representation. 

generates CALL PLI$ABITFIXD_R6 (src.rv.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$BITFLTB_R6 converts an unaligned bit string to its corresponding floating-point binary 

representation. 

generates CALL PLI$BITFLTB_R6 (src.rvu.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r, 
src-offset.rv.v) 

PLI$ABITFLTB_R6 converts an aligned bit string to its corresponding floating-point binary 

representation. 

generates CALL PLI$ABITFLTB_R6 (src.rv.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$BITFLTD_R6 converts an unaligned bit string to its corresponding floating-point decimal 

representation. 

generates CALL PLI$BITFLTD_R6 (src.rvu.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r, 
src-offset.rv.v) 

PLI$ABITFLTD_R6 converts an aligned bit string to its corresponding floating-point decimal 
representation. 

generates CALL PLI$ABITFLTD_R6 (src.rv.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 
Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference. 
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dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
src-offset (R5) 

Bit offset to the source, when the source is an unaligned bit string. Passed by immediate value. 

5.1.3.4 Conversions from Character Strings to Arithmetic Data Types — When a character string is 
assigned to an arithmetic value, PL/I creates an intermediate numeric value based on the characters 
in the string. This intermediate string is of the same type as an ordinary arithmetic constant made up 
of the same characters. 

The character string can contain any series of characters that describes a valid arithmetic constant 
(numeric digits, decimal point, sign). It can also contain the letter E followed by a signed exponent. 
Invalid characters cause the ERROR condition to be signaled. 

If the implied data type of the character string does not match the type of the target, PL/I converts the 
intermediate value to the data type of the target, following the rules for arithmetic to arithmetic 
conversions. If the source character string is null or contains all spaces, the resulting arithmetic value 
is zero. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 

PLI$CHARFIXB—R6 

PLI$CHARFIXB_R6 converts a fixed-length character string to its corresponding fixed-point binary 
representation. 

generates CALL PLI$CHARFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$VCHAFIXB_R6 converts a variable-length character string to its corresponding fixed-point binary 
representation. 

generates CALL PLI$VCHAFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$CHARFIXD_R6 converts a fixed-length character string to its corresponding fixed-point decimal 
representation. 

generates CALL PLI$CHARFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$VCHAFIXD_R6 converts a variable-length character string to its corresponding fixed-point deci¬ 
mal representation. 

generates CALL PLI$VCHAFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, dest-dope.wz.r) 

PLI$CHARFLTB_R6 converts a fixed-length character string to its corresponding floating-point binary 
representation. 

generates CALL PLI$CFIARFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$VCHAFLTB_R6 converts a variable-length character string to its corresponding floating-point 
binary representation. 

generates CALL PLI$VCFIAFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$CHARFLTD_R6 converts a fixed-length character string to its corresponding floating-point deci¬ 
mal representation. 
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generates CALL PLI$CHARFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$VCHAFLTD_R6 converts a variable-length character string to its corresponding floating-point 
decimal representation. 

generates CALL PLI$VCHAFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, dest-dope.wz.r) 
Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 

5.1.4 Assignments to Pictured Variables 

When an expression of a computational data type is assigned to a pictured variable, the target 
pictured value has a precision (p), which is defined as the number of characters in its picture specifi¬ 
cation that represent decimal digits. It also has a scale factor (q), which refers to the number of 
characters that refer to digits to the right of the V character. If there is no V character, or if all the digit 
characters are to the left of V, then q is zero. 

The source is converted to a fixed-point decimal value of precision (p,q). The compiled code then 
calls PLI$CVT_TO_PIC to convert this value to a character string, as specified by the picture specifi¬ 
cation. The value of this character string is assigned to the pictured target. 

If the value being edited is less than zero and the picture specification of the target does not contain 
one of the characters S, +, —, T, I, R, CR, or DB, then an ERROR condition is signaled. If the value 
being edited has more integral digits than are specified by the picture of the target, FIXEDOVERFLOW 
is signaled. 

Generated code and other conversion routines call PLI$CVT_FR_PIC and PLI$CVT_TO_PIC to per¬ 
form conversions between fixed-point decimal and picture data types. Section 5.1.4.1 describes these 
two routines. 

Section 5.1.4.2 discusses PLI$VALID_PIC, which checks to see whether a variable is valid as regards 
its picture specification. 

Section 5.1.4.3 describes the Run-Time Library routines that convert other data types to pictured 
values. 


PLI$CVT—TO—PIC 

5 . 1 .4.1 Conversions between Fixed-Point Decimal Data and Picture Data — PLI$CVT_TO_PIC con¬ 
verts a fixed-point decimal number (that is, a packed decimal string) to a character string. The format 
of the character string is specified by an internal data structure, the picture constant block. 
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PLI$CVT_FR_PIC converts a picture character string to a fixed-point decimal value (that is, a packed 
decimal string). The format of the character string is specified by an internal data structure, the picture 
constant block. 

generates CALL PLI$CVT_TO_PIC (pic-constant.rz.r, src-dope.rz.r, src.rz.r, 
dest-dope.wz.r, dest.wt.r) 

generates CALL PLI$CVT_FR_PIC (pic-constant.rz.r, src-dope.rz.r, src.rt.r, 
dest-dope.wz.r, dest.wz.r) 


Arguments 

pic-constant 

The picture constant block. This is an internal PL/I data structure that encodes the format of the 
destination item. Passed by reference. 

src-dope 

The dope vector for the source string. This parameter defines the size of the source. Passed by 
reference. 


src 

The source value. Passed by reference, 
dest-dope 

The dope vector for the destination string. This parameter defines the size of the destination. 
Passed by reference. 


dest 

The destination value. Passed by reference. 


PLI$VALID—PIC 


5.1.4.2 Validation of Picture Data — PLI$VALID_PIC supports the VALID built-in function and the 
GET EDIT statement. It determines whether a pictured variable has a valid value. A value is valid if it 
is any of the character strings that can be created by the picture specification. The procedure returns 
'O'B if the variable has an invalid value and '1'B if it has a valid value. This procedure is invoked from 
a PL/I program with a function call. 

When a GET EDIT statement occurs, compiled code always calls PLI$VALID_PIC to validate pictured 
data. Thus you need not use the VALID built-in function with GET EDIT. 

Format VALID(x) 

generates CALL ret-value.wv.v = PLI$VALID_PIC (pic-constant.rz.r, test-size.rv.v, test.rt.r) 

Arguments 

pic-constant 

The picture constant block. This is an internal PL/I data structure that encodes the format of the 
source item. Passed by reference. 

test-size 

Size of the test string. Passed by immediate value. 
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test 


The test string. Passed by reference, 
ret-value 

A bit that indicates whether the value tested is valid. 

1 = valid 
0 = invalid 

PLI$xPIC—R6 

5.1.4.3 Conversions to Picture Data — For the argument list and register usage of the following 
procedures see Table PLI—11 (Section 5.1.2). 

PLI$FIXBPIC_R6 converts a fixed-point binary number to its corresponding picture 
representation. 

generates CALL PLI$FIXBPIC_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 
PLI$FIXDPIC_R6 converts a fixed-point decimal number to a corresponding picture representation, 
generates CALL PLI$FIXDPIC_R6 (src.rp.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

Note 

PLI$FIXDPIC_R6 calls the library routine PLI$CVT_TO_PIC to perform the conver¬ 
sion. This routine is described in Section 5.1.4.1. 

PLI$FLTBPIC_R6 converts a floating-point binary number to a corresponding picture representation. 

generates CALL PLI$FLTBPIC_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FLTDPIC_R6 converts a floating-point decimal number to a corresponding picture 

representation. 

generates CALL PLI$FLTDPIC_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$PICPIC_R6 converts a picture data item to its corresponding picture representation. 

generates CALL PLI$PICPIC_R6 (src.rt.r, src-dope.rz.r,dest.wt.r, dest-dope.wz.r) 

PLI$CFHARPIC_R6 converts a fixed-length character string to its corresponding picture representation. 

generates CALL PLI$CHARPIC_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$VCHAPIC_R6 converts a variable-length character string to its corresponding picture 

representation. 

generates CALL PLI$VCFiAPIC_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$ABITPIC_R6 converts an aligned bit string to its corresponding picture representation. 

generates CALL PLI$ABITPIC_R6 (src.rv.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$BITPIC_R6 converts an unaligned bit string to its corresponding picture representation. 

generates CALL PLI$BITPIC_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r, 
src-offset.rv.v) 
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Arguments 


src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
src-offset (R5) 

Bit offset to the source, when the source is an unaligned bit string. Passed by immediate value. 

5.1.5 Assignments to Character-String Variables 

In the conversion of any data type to a character string, VAX-11 PL/I first converts the source value to 
an intermediate character-string value. Then it performs one of the following: 

• If the length of the intermediate string is zero, a null string is assigned to the target. 

• If the target is a parameter or return value with an asterisk extent (as in RETURNS CHAR(*)), the 
intermediate string is assigned to the target. 

• If the target is of type CHARACTER, and the intermediate string is shorter than the maximum length 
of the target, the target is assigned the value of the intermediate string. 

• If the maximum length of the target character string is less than the length of the intermediate string, 
the intermediate string is truncated. 

Sections 5.1.5.1 through 5.1.5.4 describe how PL/I generates the intermediate string from a source of 
each data type. They then list the Run-Time Library routines that perform conversions to character 
strings. 

5.1.5.1 Conversions from Fixed-Point Data Types to Character Strings — During conversion from 
fixed-point binary or decimal data to a character string, PL/I generates an intermediate string as 
follows: 

If the source value is of type FIXED BINARY(p7), PL/I first converts it to type FIXED DECIMAL(p2,0), 
where p2 is given by: 

p2 = min(ceil(p1 /3.32) + 1,31) 

PL/I converts a value with attributes FIXED DECIMAL(p,q) to an intermediate string of length p + 3. 
The numeric value is right-justified in the string. If the value is negative, a minus sign immediately 
precedes the value. If q is greater than zero, the value contains a decimal point followed by q digits. 
When p equals q, a zero character precedes the decimal point. When q equals zero, a value of zero 
is represented by the zero character. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 
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PLI$FIXBCHAR-R6 


PLI$FIXBCHAR_R6 converts a fixed-point binary number to its corresponding fixed-length character¬ 
string representation. 

generates CALL PLI$FIXBCHAR_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FIXDCHAR_R6 converts a fixed-point decimal number to its corresponding fixed-length 
character-string representation. 

generates CALL PLI$FIXDCHAR_R6 (src.rp.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FIXBVCHA_R6 converts a fixed-point binary number to its corresponding variable-length 
character-string representation. 

generates CALL PLI$FIXBVCFIA_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FIXDVCFHA_R6 converts a fixed-point decimal number to its corresponding variable-length 
character-string representation. 

generates CALL PLI$FIXDVCHA_R6 (src.rp.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 
Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 

5.1.5.2 Conversions from Floating-Point to Character Strings — If the source value is of type FLOAT 
BINARY(p7), it is converted to FLOAT DECIMAL(p2), where p2 is given by: 

p2 = min(ceil(p1 /3.32),34) 

For a value of type FLOAT DECIMAL(p), where p is less than or equal to 34, the intermediate string is 
of length pH-6. This allows extra characters for the sign of the number, the decimal point, the letter E, 
the sign of the exponent, and a two-digit exponent. 

Note 

If the value is a floating-point number of the VAX—11 type G_floating, three characters 
are allocated to the exponent. The length of the string is thus pH-7. If the value is of 
the type H_floating, four characters are allocated to the exponent, and the length of 
the string is pH-8. 

If the number is negative, the first character is a minus sign; otherwise, the first digit is a space. The 
subsequent characters are a single digit (which may be 0), a decimal point, p—1 fractional digits, the 
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letter E, the sign of the exponent (always + or -), and the exponent digits. The exponent field is of 
fixed length, and the zero exponent is shown as all zeros in the exponent field. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 

PLI$FLTBCHAR-R6 

PLI$FLTBCHAR_R6 converts a floating-point binary number to its corresponding fixed-length 
character-string representation. 

generates CALL PLI$FLTBCHAR_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FLTDCF1AR_R6 converts a floating-point decimal number to its corresponding fixed-length 
character-string representation. 

generates CALL PLI$FLTDCHAR_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FLTBVCHA_R6 converts a floating-point binary number to its corresponding variable-length 
character-string representation. 

generates CALL PLI$FLTBVCFiA_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FLTDVCHA_R6 converts a floating-point decimal number to its corresponding variable-length 
character-string representation. 

generates CALL PLI$FLTDVCFiA_R6 (src.rz.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 

5.1.5.3 Conversions from Pictured Data Type to Character Strings — If the source value is pictured, 
its internal, character-string representation is used without conversion as the intermediate character 
string. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 


PLI$PICCHAR—R6 

PLI$PICCHAR_R6 converts a pictured data item to its corresponding fixed-length character-string 
representation. 

generates CALL PLI$PICCHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 
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PL1$PICVCHA_R6 converts a pictured data item to its corresponding variable-length character-string 
representation. 

generates CALL PLI$PICVCHA_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 


5.1.5.4 Conversions from Bit Strings to Character Strings — When PL/I converts a bit string to a 
character string, it converts each bit in the bit string (as represented by PUT LIST) to a zero or one 
character in the corresponding position of the intermediate character string. 

If the bit string is a null string, the intermediate character string is also a null string. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 


PLI$BITCHAR 


PLI$BITCHAR_R6 converts an unaligned bit string to its corresponding fixed-length character-string 
representation. 

generates CALL PLI$BITCHAR_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r, 
src-offset.rv.v) 

PLI$ABITCHAR_R6 converts an aligned bit string to its corresponding fixed-length character-string 
representation. 

generates CALL PLI$ABITCF1AR_R6 (src.rv.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$BITVCHA_R6 converts an unaligned bit string to its corresponding variable-length character¬ 
string representation. 

generates CALL PLI$BITVCHA_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r, 
src-offset.rv.v) 

PLI$ABITVCHA_R6 converts an aligned bit string to its corresponding variable-length character-string 
representation. 

generates CALL PLI$ABITVCHA_R6 (src.rv.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 
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Arguments 


src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
src-offset (R5) 

Bit offset to the source, when the source is an unaligned bit string. Passed by immediate value. 

5.1.5.5 Conversions from Character Strings to Character Strings — The routines in this section 
perform conversions between character strings. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 


PLI$VCHACHAR 

PLI$VCHACHAR_R6 converts a variable-length character string to its corresponding fixed-length 
character-string representation. 

generates CALL PLI$VCHACHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$CHARCF1AR_R6 converts a fixed-length character string to its corresponding fixed-length 
character-string representation. 

generates CALL PLI$CHARCHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$CHARVCHA_R6 converts a fixed-length character string to its corresponding variable-length 
character-string representation. 

generates CALL PLI$CHARVCHA_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$VCHAVCHA_R6 converts a variable-length character string to its corresponding variable-length 
character-string representation. 

generates CALL PLI$VCHAVCHA_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference. 
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dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference. 


5.1.6 Assignments to Bit-String Variables 

To convert any data type to a bit string, PL/I first converts the source data item to an intermediate bit¬ 
string value. Then, depending on the length of the target string, it performs the following: 

• If the length of the target bit string is greater than the length of the intermediate string, the target bit 
string (as represented by PUT LIST) is padded with zeros on the right. 

• If the length of the target bit string is less than the length of the intermediate bit string, the target bit 
string (as represented by PUT LIST) is truncated on the right. 


The following sections describe how PL/I generates the intermediate bit-string value for each data 
type and list the Run-Time Library routines that perform the conversions. 


5.1.6.1 Conversions from Arithmetic Data Types to Bit Strings — In converting an arithmetic value sv 
to a bit-string value, PL/I performs the following steps: 


1. Let v = abs(sv) 


2. Determine a precision p as follows: 


Source 

FIXED BINARY(r) 
FLOAT BINARY(r) 
FIXED DECIMALS,s) 
FLOAT DECIMAL(r) 


Precision p 

min(31 ,r) 
min(31 ,r) 

min(31 ,ceil((r-s)*3.32)) 
min(31 ,ceil(r*3.32)) 


3. If p is zero (for example, when r = s), the intermediate string is a null bit string. Otherwise, the 
value v is converted to an integer n of type FIXED BINARY(p). If n> = 2**p, the FIXEDOVER- 
FLOW condition is signaled; otherwise, the intermediate bit string is of length p, and each of its 
bits represents one of the binary digits of the integer n. 

For the argument list and register usage of the following procedures see Table PLI—11 (Section 5.1.2). 


PLI$FIXBBIT—R6 

PLI$FIXBBIT_R6 converts a fixed-point binary number to its corresponding unaligned bit string 
representation. 

generates CALL PLI$FIXBBIT_R6 (src.rl.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$FIXDBIT_R6 converts a fixed-point decimal number to its corresponding unaligned bit string 
representation. 

generates CALL PLI$FIXDBIT_R6 (src.rp.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 


Data Type Conversion and Mathematics Procedures 


PLI 61 



PLI$FLTBBIT_R6 converts a floating-point binary number to its corresponding unaligned bit string 
representation. 

generates CALL PLI$FLTBBIT_R6 (src.rz.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$FLTDBIT_R6 converts a floating-point decimal number to its corresponding unaligned bit string 
representation. 

generates CALL PLI$FLTDBIT_R6 (src.rz.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$FIXBABIT_R6 converts a fixed-point binary number to its corresponding aligned bit string 
representation. 

generates CALL PLI$FIXBABIT_R6 (src.rl.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 

PLI$FIXDABIT_R6 converts a fixed-point decimal number to its corresponding aligned bit string 
representation. 

generates CALL PLI$FIXDABIT_R6 (src.rp.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 

PLI$FLTBABIT_R6 converts a floating-point binary number to its corresponding aligned bit string 
representation. 

generates CALL PLI$FLTBABIT_R6 (src.rz.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 

PLI$FLTDABIT_R6 converts a floating-point decimal number to its corresponding aligned bit string 
representation. 

generates CALL PLI$FLTDABIT_R6 (src.rz.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 


Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
dest-offset (R6) 

Bit offset to the destination, when the destination is an unaligned bit string. Passed by immediate 
value. 


5.1.6.2 Conversions from Pictured Data to Bit Strings — If the source value is pictured, its associated 
fixed-point decimal value is extracted. The fixed-point decimal value is then converted to a bit string. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 
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PLI$PICBIT_R6 


PU$PICBIT_R6 converts a picture data item to its corresponding unaligned bit string representation. 

generates CALL PLI$PICBIT_R6 (src.rt.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$PICABIT_R6 converts a picture data item to its corresponding aligned bit string representation, 
generates CALL PLI$PICABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 

Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
dest-offset (R6) 

Bit offset to the destination, when the destination is an unaligned bit string. Passed by immediate 
value. 

5.1.6.3 Conversions from Character Strings to Bit Strings — PL /I can convert a character string of 
zeros and ones to a bit string. Any character in the character string other than zero or one, including 
spaces, will signal the ERROR condition. 

PL/I converts each zero or one character in the character string to a zero or one bit in the correspond¬ 
ing position (as represented by PUT LIST) in the intermediate bit string. 

If the source is a null character string, the intermediate string is a null bit string. 

For the argument list and register usage of the following procedures see Table PLI—11 (Section 5.1.2). 


PLI$CHARBIT—R6 


PLI$CHARBIT_R6 converts a fixed-length character string to its corresponding unaligned bit string 
representation. 

generates CALL PLI$CHARBIT_R6 (src.rt.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 

dest-offset.wv.v) 

PLI$VCHABIT_R6 converts a variable-length character string to its corresponding unaligned bit string 
representation. 
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generates 


CALL PLI$VCHABIT_R6 (src.rt.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$CHARABIT_R6 converts a fixed-length character string to its corresponding aligned bit string 
representation. 

generates CALL PLI$CHARABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 

PLI$VCHAABIT_R6 converts a variable-length character string to its corresponding aligned bit string 
representation. 

generates CALL PLI$VCHAABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 
Arguments 

src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
dest-offset (R6) 

Bit offset to the destination, when the destination is an unaligned bit string. Passed by immediate 
value. 


5.1.6.4 Conversions from Bit Strings to Bit Strings — The routines in this section perform conver¬ 
sions between bit strings. 

For the argument list and register usage of the following procedures see Table PLI-11 (Section 5.1.2). 

PLI$BITBIT_R6 converts an unaligned bit string to its corresponding unaligned bit string 
representation. 

generates CALL PLI$BITBIT_R6 (src.rvu.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
src-offset.rv.v, dest-offset.wv.v) 

PLI$ABITBIT_R6 converts an aligned bit string to its corresponding unaligned bit string 
representation. 

generates CALL PLI$ABITBIT_R6 (src.rv.r, src-dope.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$BITABIT_R6 converts an unaligned bit string to its corresponding aligned bit string 


representation. 

generates CALL PLI$BITABIT_R6 (src.rvu.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r, 

src-offset.rv.v) 

PLI$ABITABIT_R6 converts an aligned bit string to its corresponding aligned bit string representation, 
generates CALL PLI$ABITABIT_R6 (src.rv.r, src-dope.rz.r, dest.wv.r, dest-dope.wz.r) 
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Arguments 


src (RO) 

The source value. Passed by reference, 
src-dope (R1) 

The dope vector for the source value (see Section 4.1). Passed by reference, 
dest (R2) 

The destination value. Passed by reference, 
dest-dope (R3) 

The dope vector for the destination value (see Section 4.1). Passed by reference, 
src-offset (R5) 

Bit offset to the source, when the source is an unaligned bit string. Passed by immediate value, 
dest-offset (R6) 

Bit offset to the destination, when the destination is an unaligned bit string. Passed by immediate 

value. 


PLI$DIV-PK—x 


5.2 Math Routines 

PL/I compiled code invokes Run-Time Library procedures to divide fixed-point decimal data (which 
is stored in packed decimal form) when precision and scale requirements for the quotient call for 
multiple precision division. PLI$DIV_PK_LONG is called when the divisor has a precision of 30 or 
31 decimal digits. PLI$DIV_PK_SHORT is called when the divisor has a precision of less than 30 
decimal digits. 

For z = x/y, where a is the additional digits of precision required, the procedure computes the 
parameters as follows: 

compute a = scale(z) + scale(y) - scale(x) - 31 + prec(x) 
b = scale(z) + scale(y) — scale(x) + prec(x) 
c = 31 - prec(x) 
d = 31 - prec(y) 

If b > 31, then PLI$DIV_PK_SHORT or PLI$DIV_PK_LONG is used to perform the division. 

If d > 1, then PLI$DIV_PK_SHORT is used; otherwise PLI$DIV_PK_LONG is used. 

The dividend (x) is always multiplied by (10**c) prior to passing it as input. This makes it a 31- 
digit number. 

Format x / y 

[where x is defined as FIXED DECIMAL (p,q), and p < 30] 

generates PLI$DIV_PK_SHORT (divd.rp.r, divr.rp.r, divr-prec.rw.v, quot.wp.r, quot-prec.rw.v, 

prec-data.rw.v) 
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Format 


x / y 

[where x is defined as FIXED DECIMAL (p,q), and p = 30 or 31] 

generates PLI$DIV_PK_LONG (divd.rp.r, divr.rp.r, divr-prec.rw.v, quot.wp.r, quot-prec.rw.v, 

prec-data.rw.v, scale-data.rw.v) 

Arguments 

divd 

The dividend (shifted left by c). Passed by reference. 


divr 

The divisor. Passed by reference, 
divr-prec 

Precision of the divisor. The high order bytes are filled with zeros. Passed by immediate value, 
quot 

The quotient. Passed by reference, 
quotient-prec 

Precision of the quotient. The high order bytes are filled with zeros. Passed by immediate value, 
prec-data 

The additional digits of precision required. This parameter is a as defined above. Passed by 
immediate value. 

scale-data 

D as defined above (31 - prec(y)). Passed by immediate value. 


PLI 66 


Data Type Conversion and Mathematics Procedures 


Chapter 6 

Compiled-Code Support Procedures 


6.1 Control Procedures 

Two Run-Time Library procedures control the initialization and termination of a PL/I program: 

• PLI$OPTIONS_MAIN initializes a PL/I procedure specified with OPTIONS MAIN. 

• PLI$STOP_PROG stops program execution when the program contains a STOP or RETURN 
statement. 


PLI$OPTIONS—MAIN 


6.1.1 The OPTIONS MAIN Procedure 

When used with the OPTIONS keyword in the PROCEDURE statement, the MAIN option indicates 
that the specified entry name is the primary invocation point of the program. PLI$OPTIONS_MAIN 
supports the MAIN option by initializing the stack frame and declaring an exit handler for the 
program. This procedure has no parameters, but it destroys the contents of R2. 

Format PROCEDURE OPTIONS (MAIN) ; 

generates JSB PLI$OPTIONS_MAIN 


PLI$STOP-PROG 


6.1.2 Stopping a PL /I Program 

PLI$STOP_PROG signals the finish condition and terminates the program. It is invoked when a 
RETURN or STOP statement is executed or the end of the main procedure is reached. 
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generates 


CALL PLI$STOP_PROG (status.rl.v) 


Arguments 

status 

Exit status. Passed by immediate value. 

6.2 Condition Handling and I/O Exceptions 

Several Run-Time Library procedures support the PL/I condition handling facility. These procedures 
include: 

• Stack frame condition handlers 

• Procedures that support condition handling built-in functions and built-in subroutines 

• Miscellaneous utility procedures that perform functions for the PL/I condition handling facility 

For a description of condition handling by PL/I, see Section 1.3. 

6.2.1 Condition Handlers 

This section describes routines called as condition handlers by the PL/I compiled code. 


PLI$CND-HND 


PLI$CND_HND is the condition handler for PL/I programs. Compiled code specifies this routine as 
its condition handler when there is no OPTIONS (MAIN) statement in the procedure. 
PLI$CND_HND searches the current condition handler list for a control block that specifies the same 
condition as the current condition. The first control block with a matching condition is used to call 
the associated condition handler routine. If the procedure does not find a handler, it resignals the 
condition. For further details, see Section 1.3 and the VAX—7 7 PL/1 User's Guide . 

generates MOVAB PLI$CND_HND, (FP) 


PLI$DEF_HND 


PLI$DEF_FHND is the default condition handler for PL/I programs with an OPTIONS (MAIN) state¬ 
ment. It searches for enabled conditions in the same way as the standard handler. If a condition 
handler is found, the condition is continued. If no condition handler is found and the condition was 
not ERROR, then ERROR is signaled. For further details, see Section 1.3 and the VAX-7 7 PL/1 User's 
Guide. 

generates MOVAB PLI$DEF_HND, (FP) 
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PLI$IO—ERROR 


The run-time I/O routines use PLI$IO_ERROR to signal I/O—related errors, 
generates CALL PLI$IO_ERROR (cond.rl.v,error.rl.v, fcb.mz.r) 

Arguments 

cond 

The condition value for the I/O error being signaled. Passed by immediate value, 
error 

Error code. Passed by immediate value, 
fcb 

The file control block for the file. Passed by reference. 

6.2.2 Condition Handling Built-in Functions and Subroutines 

This section describes the Run-Time Library procedures that execute operations for the following PL/I 
built-in functions and subroutines: 

• ONKEY 

• ONCODE 

• ONARGLIST 

• RESIGNAL 


PLI$ONKEY 


PLI$ONKEY supports the ONKEY built-in function by returning the key value that caused the KEY 
condition to be signaled during an I/O operation. The ONKEY built-in function can be used in an 
ON-unit established for these conditions: 

• The KEY or ENDFILE condition 

• An ERROR ON—unit that receives control as a result of the default PL/I action for the KEY condi¬ 
tion, which is to signal the ERROR condition 

The return string is a variable-length character string. If the ONKEY function is referenced outside an 
ON-unit or within an ON-unit that is executed as a result of a SIGNAL statement, then it returns a 
null string. 

Format ONKEY( ) 

generates CALL PLI$ONKEY (ret-string-size.rw.v, ret-string.wt.r) 
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Arguments 


ret-string-size 

The size of the return string. Passed by immediate value, 
ret-string 

The return string. Passed by reference. 


PLI$ONCODE 


PLI$ONCODE supports the ONCODE built-in function, which returns the 32-bit status value of the 
most recent run-time error that signaled the current ON-unit. The function may be used in an 
ON—unit to determine the specific error that caused the condition. If the function is used within any 
context outside an ON—unit, it returns a zero. 

Format ONCODE() 

generates CALL ret-status.wlc.v = PLI$ONCODE 

Arguments 

ret-status 

A fixed-point binary (FIXED BINARY (31)) value indicating the current condition. For a list of 
ONCODE values for PL/I ON conditions, see the VAX—7 7 PL/I User's Guide. 

PLI$ONCNDARGS 


PLI$ONCNDARGS supports the ONARGSLIST built-in function. This procedure returns the argument 
pointer of the most recent condition. If no condition is active, then the pointer returned is null. 

Format ONARGSLIST() 

generates CALL ret-value.wl.v = PLI$ONCNDARGS 

Arguments 

ret-value 

Return pointer value. 


PLI$ONFILE 

PLI$ONFILE supports the ONFILE built-in function. This routine returns the name of the file constant 
for which the current file-related condition was signaled. The ONFILE built-in function can be used in 
an ON—unit established for any of the following conditions: 

• An ON-unit for the KEY, ENDFILE, ENDPAGE, and UNDEFINEDFILE conditions 

• An ERROR ON—unit that receives control as a result of the default PL/I action for file-related errors, 
which is to signal the ERROR condition 
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The return string is a variable-length character string. If the ONFILE function is referenced outside an 
ON-unit or within an ON-unit that is executed as a result of a SIGNAL statement, then it returns a 
null string. 

Format ONFILE( ) 

generates CALL PLI$ONFILE (ret-string-size.rw.v, ret-string.wt.r) 

Arguments 

ret-string-size 

The size of the return string. Passed by immediate value, 
ret-string 

The return string. Passed by reference. 


PLI$RESIGNAL 


PU$RESIGNAL searches the stack for a condition stack frame. If it finds one, it resignals the 
condition. 

generates CALL PLI$RESIGNAL 


6.2.3 Other Utility Procedures 


PLI$BOUND—CHECK 


PLI$BOUND_CFHECK is a subroutine that supports the checking of the range of a subscript. If the 
subscript is out of range, the procedure signals the error. If the user has specified an ON-unit for the 
condition, and it continues, then the flow of control is not changed. 

generates JSB PLI$BOUND_CHECK 
.BYTE bound-number 


Arguments 

bound-number 

This parameter is the bound number of the array to range check. 


PLI$NONLOC—GOTO 


A nonlocal GOTO occurs when the label value specified in a GOTO statement is not in the current 
block. A nonlocal GOTO causes control to transfer to PLI$NONLOC_GOTO by a JSB. 
PLI$NONLOC_GOTO unwinds the stack in a manner similar to SYS$UNWIND. As each stack frame 
is passed, the routine signals the SS$_UNWIND condition. 
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Format 


GOTO label-reference ; 

(where label-reference is not in current block) 
JSB PLI$NONLOC_GOTO (new-pc.rl.v, new-fp.rl.v) 


generates 
Arguments 

new-pc 

The Program Counter for procedure referred to by label-reference. Passed by immediate value, 
new-fp 

The Frame Pointer for the target frame. Passed by immediate value. 


PLI$NONLOC—RET 

A nonlocal RETURN occurs when a nested BEGIN block contains a RETURN statement. For example: 

A: PROCEDURE 5 
BEGIN 5 

RETURN 5 

END ; 

END A 5 

When a nonlocal RETURN is encountered, control passes by a JSB to PLI$NONLOC_RET. This 
routine unwinds the stack in a manner similar to SYS$UNWIND. As each frame is passed, the routine 
signals the SS$_UNWIND condition. 

Parameters are passed in registers as follows: 

R0/R1 — ret-value (return-value) 

R2 — num (number of stacks to unwind) 

In the case of a nonlocal RETURN: 

Format RETURN [(return-value)] ; 

generates JSB ret-value.wz.v = PLI$NONLOC_RET (num.rl.v) 

Arguments 

num 

The number of stack frames to be skipped. Passed by immediate value, 
ret-value 

The value to be returned to the invoking procedure. If the current procedure was invoked by a 
function reference, a return value must be specified. If the current procedure was invoked by a 
CALL statement, a return value is invalid. This value can be any scalar arithmetic, bit-string, or 
character-string expression; it can also be an entry, pointer, or label value or other noncomputa- 
tional value. The return value must be valid for conversion to the data type specified in the 
RETURNS option of the function. 
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PLI$OPTMAIN-RET 


PLI$OPTMAIN_RET performs a RETURN within an OPTIONS MAIN block. If the block is the outer¬ 
most OPTIONS MAIN block, the routine causes a STOP. Otherwise, it returns control to the caller 
block. 

Format PROCEDURE OPTIONS (MAIN) ; 

RETURN ; 

generates JSB PLI$OPTMAIN_RET 


PLI$RT-SUBSCRIP 


When a label vector entry to a function or subroutine is referenced without being initialized, the 
generated code uses PLI$RT_SUBSCRIP to signal the error. The label constant arrays are initialized to 
address PLI$RT_SUBSCRIP. When you name a member of one of the arrays, your action supersedes 
the initialization. Thus, if you reference a label that has not been named, the compiler substitutes the 
address of the error routine. If you specified /CHECK at compile time, the error is signaled. If not, 
program execution stops. 

Thus, the following example would result in a JSB to PLI$RT_SUBSCRIP. 

i = a ; 

GOTO l( i) ; 

l ( 1 ) ; 


l ( 2 ); 


L<5> 5 


END ; 

generates JSB PLI$RT_SUBSCRIP 


PLI$DATE 


6.3 Date/Time Utilities 

PU$DATE supports the DATE built-in function. It returns the current date as a six-character string of 
the form yymmdd, where: 

yy is the current year (00—99) 

mm is the current month (01—12) 

dd is the current day of the month (01—31) 
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PLI$TIME supports the TIME built-in function. This routine returns the time of day as an eight- 
character string in the form hhmmssxx , where: 


hh is the current hour (00-23) 

mm is the minutes (00—59) 

ss is the seconds (00—59) 

xx is hundredths of seconds (00—99) 

Format DATE() 


generates JSB PLI$DATE (ret-string.wt.r) 

Format TIME() 


generates JSB PLI$TIME (ret-string.wt.r) 


Arguments 

ret-string (R1) 

The returned character string, returned by reference in R1. 


PLI$ALOCHEEP 

6.4 Dynamic Allocation of Virtual Memory 

PLI$ALOCHEEP supports the VAX-11 PL/I ALLOCATE statement. It uses the Run-Time Library rou¬ 
tine LIB$GET_VM to allocate a block of virtual memory large enough to contain the data and an 
additional longword to store the size of the block in the block itself. 

PLI$FREEHEEP supports the VAX-11 PL/I FREE statement. It uses the Run-Time Library routine 
LIB$FREE_VM to deallocate a block of virtual memory that has been used to store a based variable. 
The block must have been allocated using PLI$ALOCHEEP. 

Format ALLOCATE variable-reference [SET(pointer-reference)] ; 

generates CALL ret-status.wlc.v = PLI$ALOCHEEP (num-bytes.rlu.r, bas-adr.wa.r) 

Format FREE variable-reference ; 

generates CALL ret-status.wlc.v = PLI$FREEHEEP (adr.wa.r) 

Arguments 

num-bytes 

An unsigned longword integer indicating the number of contiguous bytes to be allocated. Passed 
by reference. 

bas-adr 

The address of a longword that is set to the first virtual address of the newly allocated contiguous 
block of bytes. (This is an output parameter.) 

Return Status 

SS$_NORMAL 

Procedure successfully completed 
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LIB$_INSVIRMEM 

Insufficient virtual memory. The request required more dynamic memory than was available from 
the operating system. No partial allocation is made in this case. 

LIB$_BADBLOSIZ 

Bad block size. The user attempted to allocate a block whose size was zero. 


PLI$GETSTRNG_R6 


6.5 String I/O 

PU$GETSTRNG_R6 initializes the run-time system to perform a GET STRING statement. The GET 
statement is compiled into code that places the parameters for this routine in registers. Control is then 
passed to PLI$GETSTRNG_R6 by a JSB. PLI$GETSTRNG_R6 performs the following functions: 

• Creates a minimal file control block for the string. 

• Initializes the buffer pointers to point to the string. 

• Allocates and initializes a stream control block. 

Control then returns to the inline code, which may call the PLI$GETEsrc or PLI$GETLsrc routine that 
processes data of the given data type. 


PLI$PUTSTRNG_R6 initializes the run-time system to perform a PUT STRING statement. The PUT 
statement is compiled into code that places the parameters for PLI$PUTSTRNG_R6 in registers. 
Control is then passed to PLI$PUTSTRNG_R6 by a JSB. PLI$PUTSTRNG_R6 performs the following 
functions: 

• Creates a file control block for the string. 

• Initializes the buffer pointers to point to the string. 

• Allocates and initializes a string control block. 


Control then passes to the PLI$PUTEsrc or PLI$PUTLsrc routine that processes data of the given data 
type. 


Format 


generates 


GET 


EDIT (input-target,...) 

(format-spec,...) 
LIST (input-target,...) 


JSB PLI$GETSTRNG_R6 (src.rt.r, 


STRING(reference) ; 
format.rbu.ra) 


Format 

generates 


PUT 


EDIT (input-target,...) 

(format-spec,...) 
LIST (input-target,...) 


STRING(reference) ; 


JSB PLI$PUTSTRNG_R6 (src.rt.r, format.rbu.ra, size.rw.v, type.rw.v) 


Compiled-Code Support Procedures 


PLI 75 




Arguments 


src 

The source string. This must be a variable-length character string for PLI$GETSTRNG_R6 and a 
fixed- or variable-length character string for PLI$PUTSTRNG_R6. Passed by reference. 

format 

In the case of the GET or PUT EDIT statement, this parameter is the compiled format, passed by 
reference. In the case of the GET or PUT LIST statement, this value is zero. 


size 

The maximum size of the destination string. Passed by immediate value, 
type 

The internal code for the data type of the destination string. Passed by immediate value. 


c 
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Summary of Run-Time Library Entry Points 


This is a summary of the entry points defined by the Run-Time Library. The entry points are 
listed in alphabetical order. 

The shorthand notation you can use to describe procedure parameters is explained in the fol¬ 
lowing paragraphs. 

Routine Interface Types 

To achieve the VAX-11 goal of being able to mix languages in a program, all routines are 
designed with certain common attributes. The data types and mechanism passing rules are 
designed to maximize the capability of your software at the callable procedure level to interface 
to software written by other users. A common notation is used to express the specification of 
the interface. 

The access types, data types, mechanisms, and parameter forms are defined in the VAX-11 
Run-Time Library Reference Manual. A procedure interface design must specify the data types. 
Four other considerations are also important: 

1. Whether the routine follows the VAX-11 procedure calling standard 

2. Whether its scalar input parameters are by immediate value or by reference 

3. How output strings are returned (discussed in the next paragraph) 

4. Whether the routine has a function value and whether the value is a status code or a scalar 
result 

In any facility, it is generally preferable to have only one style of these interface choices. Other 
combinations can be chosen, but the prospect of user confusion must be weighed against the 
possible inefficiency of forced consistency. 

There are three string semantics for returning a string to a calling program as an output parame¬ 
ter or a function value: 

• Fixed-length string semantics: The called procedure writes the string starting at the address 
specified in the descriptor and space fills or truncates on the right. It does not modify the 
contents of the descriptor. 
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• Dynamic string semantics: The called procedure allocates the string buffer and places both 
the address and the length into the dynamic descriptor by calling library dynamic string allo¬ 
cating procedures. 

• Varying string semantics: The called procedure writes the string starting at the address speci- 
fed in the descriptor. The current-length field of the descriptor is updated to reflect its new 
length. The address and the maximum-length field are not modified. 

The calling program can always pass a fixed-length, dynamic, or varying string at its option to 
any procedure. 

There are two choices for the interface specification of a procedure: 

• Return string using fixed-length semantics (notation - .wt.ds) 

• Return string using either fixed-length, dynamic, or varying semantics as specified by the 
caller in the descriptor (notation - .wt.dx) 

The actual choice depends on the environmental assumptions made in the procedure design. 

Notation for Describing Procedure Parameters 

A concise, language-independent notation describes each procedure parameter. The notation 
is a compatible extension of the one used in the VAX Architecture Handbook . 

The notation specifies for each parameter: 

1. A mnemonic name 

2. The type of access the procedure will make (read, write, ...) 

3. The data type of the parameter (longword, floating, ...) 

4. The argument passing mechanism (immediate value, reference, descriptor) 

5. The form of the parameter (scalar, array, ...) 

If a parameter is an address saved for later access by another procedure, the notation should 
reflect the ultimate access made by the second procedure. 

Procedure Parameter Characteristics 

Subroutines are described as: 

CALL subroutine_name(parameter1, parameter, parametern) 

Functions are described as: 

function-value = function_name(parameter1, parameter, parametern) 

Parameter and function_value are described as: 

<name>.<access typexdata type>.<passing mechanismxparameter form> 
where: 

1. <Name> is a mnemonic for the procedure formal specifier or function value specifier. 
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2. <Access type> is a single letter denoting the type of access that the procedure will (or can) 
make to the argument: 

a - Reserved for use in the VAX Architecture Handbook (address). Not used here since the 
object pointed to is specified. 

b - Reserved for use in the VAX Architecture Handbook (branch destination). Not used here 
since a branch destination cannot be a procedure formal argument. 

c - Parameter is an address of a procedure to be (optionally) called after stack unwound 
(return). No <data type> field is given, since the argument is a sequence of 
instructions. 

f - Parameter is an address of a function to be (optionally) CALLed without unwinding the 
stack. The <data type> field indicates the data type used to represent the function (ZEM 
or BPV). Immediately following ZEM or BPV is the data type of the function value. For 
example, func.fzeml.r indicates that the argument list entry contains the address of a 
function that returns a signed longword value in RO. 

j - Parameter is an address to which to (optionally) jump after the stack is unwound 
(return). No <data type> field is given, since the argument is a sequence of instruc¬ 
tions, such as FORTRAN ERR=. 

m - Parameter can be modified, that is, read and written. 

r - Parameter can be read only. 

s - Parameter is an address of a procedure subroutine to be (optionally) called without 
unwinding the stack. The <data type> field indicates the data type used to represent 
the subroutine (ZEM or BPV). 

v - Reserved for use in the VAX Architecture Handbook (variable bit field), 
w - Parameter can be written only. 

3. <Data type> is a letter denoting the primary data type with trailing qualifier letters to further 
identify the data type. Note that the routine must reference only the size specified to avoid 
improper access violations. 


Code 

Letters 

Use 



Atomic Data Types 

0 

z 

Unspecified 

2 

bu 

Byte logical (unsigned) 

2 

c 

Single character 

2 

u 

Smallest unit for addressable storage 

3 

wu 

Word logical (unsigned) 

4 

lu 

Longword logical (unsigned) 

4 

a 

Virtual address 

4 

cp 

Character pointer 

4 

Ic 

Longword containing a completion code 

5 

qu 

Quadword logical (unsigned) 

6 

b 

Byte integer (signed) 

6 

arb 

Byte containing a relative virtual address (*) 

7 

w 

Word integer (signed) 


(continued on next page) 
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Code 

Letters 

Use 



Atomic Data Types 

7 

arw 

Word containing a relative virtual address (*) 

8 

1 

Longword integer (signed) 

8 

arl 

Longword containing a relative virtual address (*) 

9 

q 

Quadword integer (signed) 

10 

f 

Single-precision F_floating 

11 

d 

Double-precision D_floating 

12 

fc 

F_floating complex 

13 

dc 

D_floating complex 

25 

ou 

Octaword logical (unsigned) 

26 

o 

Octaword integer (signed) 

27 

g 

Double-precision G_floating 

28 

h 

Quadruple-precision H_floating 

29 

gc 

G_floating complex 

30 

he 

FOfloating complex 

31 

cit 

COBOL intermediate temporary 



String Data Types 

1 

V 

Bit string, aligned 

14 

t 

Character-coded text string 

15 

nu 

Numeric string, unsigned 

16 

nl 

Numeric string, left separate sign 

17 

nlo 

Numeric string, left overpunched sign 

18 

nr 

Numeric string, right separate sign 

19 

nro 

Numeric string, right overpunched sign 

20 

nz 

Numeric string, zoned sign 

21 

P 

Packed decimal string 

34 

vu 

Bit string, unaligned 

37 

vt 

Varying character-coded text string 



Miscellaneous Data Types 

_ 

r 

Record 

- 

X 

Data type indicated in descriptor 

22 

zi 

Sequence of instructions 

23 

zem 

Procedure entry mask 

24 

dsc 

Descriptor (for use in descriptors) 

32 

bpv 

Bound procedure value 

33 

blv 

Bound label value 

35 

adt 

Absolute date and time 


* - arl, arw, and arb are self-relative addresses using the same format as the hardware displacements. That is, 
the self-relative address is a signed offset in bytes with respect to the first byte following the parameter. 

4. <Passing mechanism> is a single letter indicating the parameter passing mechanism that the 
called routine expects: 

d - Descriptor, that is, call by descriptor where the contents of the parameter list entry 
is the longword address of a descriptor. The descriptor is two or more longwords 
that specify further information about the parameter; see Appendix C of the VAX-11 
Run-Time Library Reference Manual. Note that when <passing mechanism> is d, 
<parameter form> must be present to indicate the type of descriptor. 

r - Reference, that is, call by reference where the contents of the parameter list entry is the 
longword address of the argument of the indicated data type. If the parameter is a scalar 
of the indicated data type or is a label, <parameter form> must be absent. If the param¬ 
eter is an array, <parameter form> must be present. 
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v - Immediate value, that is, call by immediate value where the contents of the parameter 
list entry is itself the parameter of the indicated data type. Note that call by immediate 
value parameter list entries are always allocated as a longword. The quadword data 
types can be used as values only for function values, never as a formal parameter. Note 
also that the VAX-11 calling standard requires that <access type> must be r whenever 
<passing mechanism> is v, except for function values where <access type> is always w 
and <passing mechanism> is usually v. 

5. <Parameter form> is a letter denoting the form of the argument: 


Code 

Letters 

Meaning 

- 

- 

Null means scalar of indicated data type. 

- 

X 

Any one of the supported string descriptors, as specified by the calling program in 
the DSC$B_CLASS field of the descriptor that it passes to the called procedure. 

- 

xl 

Either fixed-length or dynamic descriptor, as indicated by the calling program in the 
DSC$B_CLASS field of the descriptor that it passes to the called procedure. 

1 

s 

Scalar or string descriptor, that is, call by descriptor, where the contents of the 
parameters list entry is the longword address of a 2 -longword scalar descriptor. 
When the data type field (DSC$B_DTYPE) indicates ASCII text (DSC$K_DTYPE_T), 
the descriptor contains the length, data type, and address of a fixed-length string. 
When the string is written, neither the length nor the address fields in the descriptor 
are modified, and the string is filled with trailing spaces or a separate parameter is 
updated with the written length. 

2 

d 

Dynamic string descriptor, that is, passed by descriptor, where the contents of the 
parameter list entry is the longword address of a 2 -longword string descriptor of the 
same format as that of s. However, when the string is written, both the length.and 
address fields may be modified. Space is allocated dynamically by routines in the 
procedure library. 

4 


Array reference or array descriptor, that is, call by reference or call by descriptor, as 
indicated by <parameter mechanism>. For array call by reference, the contents of 
the parameter list entry is the address of an array of items of the indicated data type. 
The length is fixed, implied by entries in the array (for example, a control block), 
determined by another parameter, or specified by prior agreement. For array call by 
descriptor, the contents of the parameter list entry is the longword address of an 
array descriptor block. (See Appendix C of the VAX-11 Run-Time Library Reference 
Manual.) 



5 

P 

Procedure descriptor, that is, passed by descriptor, where the contents of the 
parameter list entry is the longword address of a 2 -longword procedure descriptor. 
The descriptor contains the address of the procedure and the data type that the pro¬ 
cedure returns if it is a function. <Access type> must be c, f, j, or s. 

9 

sd 

Scalar decimal descriptor. First two longwords are like the s descriptor. The third 
longword contains scale factor byte, and number of decimal digits byte. 

10 

nca 

Noncontiguous array descriptor. Used when the array elements are not stored con¬ 
tiguously to one another. 

11 

vs 

Varying string descriptor. Used for varying strings consisting of two fixed-length 
areas allocated contiguously with no padding between 

12 

vsa 

Varying string array descriptor. Used to specify an array of varying strings where 
each varying string has the same maximum length. 

13 

ubs 

Unaligned bit string descriptor. Used to pass an unaligned bit string that starts on an 
arbitrary bit boundary and ends on an arbitrary bit boundary. 

14 

uba 

Unaligned bit array descriptor. Used to specify an array of unaligned bit strings. Ele¬ 
ments of the array can be accessed directly using the VAX-11 variable bit field 
instructions. 
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Optional Parameters and Default Values 

The caller can omit optional parameters at the end of a parameter list by passing a shortened 
list. The caller can also omit optional parameters anywhere by passing a zero value as the con¬ 
tents of the parameter list entry. However, a caller cannot omit a parameter that is not indicated 
as optional. The called procedure is not obligated to detect such a programming error. 
Optional parameters are enclosed in square brackets, as follows: 

CALL FOR$READ_SU (unit.rb.v [,err.j.r [,end.j.r]]). 

An equal sign ( = ) after a parameter inside square brackets indicates the default value if the 
parameter is omitted, as in the following example: 

status.wlc.v = LIB$DELETE_LOGICAL (lognam.rt.dx [,tblflg.rl.r= 1]) 

Note 

VAX/VMS system services have optional parameters, but the list cannot be 
shortened. This type of optional parameter is indicated with the comma outside 
of the square brackets. For example: 

success.wlc.v = SYS$DELLOG([tblflg.rl.v], [lognam.rt.dx], [acmode.rl.v]) 

Repeated Parameters 

Parameters that can be repeated one or more times are indicated using ellipses, for example: 
CALL FOR$OPEN (keywd.rw.v,info.rl.v...) 

Repeated parameters that can be omitted entirely are indicated with ellipses inside square 
brackets, for example: 

CALL FOR$CLOSE ([logicaUunit.rl.v...]) 

Examples 

In the following statements, each parameter is described using the language-independent 
notation. 


sine_of_angle.wf.v = MTH$SIN (angle_in_radians.rf.r) 

CALL FOR$READ_SF (unit.rb.v, format.mbu.ra [,err.j.r [,end.j.r]]) 


Note that: (1) end can be omitted and that (2) err and end can both be omitted. However, unit 
and format must always be present. The parameter count byte in the parameter list specifies 
how many parameters are present. Alternatively, err, end , or both could have a parameter list 
entry equal to zero. 


Common combinations of the language-independent notation are: 


completion code: 

longword call by immediate value input arg: 
address of an array of signed words for input: 
address of a control block: 
address of a precompiled format statement: 
label to jump to: 


status.wlc.v =... 
no_of_pages.rlu.v 
array.rw.ra 
fab.mz.ra 
format, rbu.ra 
errorJabel.j.r 

(continued on next page) 
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floating input call by reference arg: angle_in_rad.rf.r 

floating complex call by reference input arg: angle.rfc.r 

read only character string: string.rt.ds 

output fixed-length string: string.wt.ds 

output string by descriptor: string.wt.dx 

user action routine that returns a cond. value: func.fzemlc.r 

Summary Chart of Procedure Parameter Notation 

<name> <access typexdata type>.<pass mechxparameter form> 


The following notation is used to define these characteristics: 



<access type> 


<data type> 

c 

Call after stack unwind 

a 

Virtual address 

f 

Function call (before return) 

adt 

Absolute date and time 

j 

JMP after unwind 

arb 

8-bit relative virtual address 

m 

Modify access 

arl 

32-bit relative virtual address 

r 

Read-only access 

arw 

16-bit relative virtual address 

s 

Call without stack unwinding 

b 

Byte integer (signed) 

w 

Write-only access 

blv 

Bound label value 



bpv 

Bound procedure value 



bu 

Byte logical (unsigned) 



c 

Single character 



cit 

COBOL intermediate temporary 



cp 

Character pointer 



d 

D_floating 



dc 

D_floating complex 


<passing mechanism> 

dsc 

Descriptor (used by descriptors) 



f 

F_floating 

d 

By descriptor 

fc 

F_floating complex 

r 

By reference 

g 

G_floating 

V 

By immediate value 

gc 

G_floating complex 



h 

H_floating 



he 

H__floating complex 



1 

Longword integer (signed) 



Ic 

Longword return status 



lu 

Longword logical (unsigned) 



nl 

Num. string, It. separate sign 



nlo 

Num. string, It. overpunched sign 



nr 

Num. string, rt. separate sign 


<parameter form> 

nro 

Num. string, rt. overpunched sign 



nu 

Num. string, unsigned 



nz 

Num. string, zoned sign 

- 

Scalar 

o 

Octaword integer (signed) 

a 

Array reference or descriptor 

ou 

Octaword logical (unsigned) 

d 

Dynamic string descriptor 

P 

Packed decimal string 

nca 

Noncontiguous array descriptor 

q 

Quadword integer (signed) 

P 

Procedure reference or dsc 

qu 

Quadword logical (unsigned) 

s 

Fixed-length string descriptor 

r 

Record 

sd 

Scalar decimal descriptor 

t 

Character-coded text string 

uba 

Unaligned bit string array dsc 

u 

Smallest addressable storage unit 

ubs 

Unaligned bit string desc 

V 

Aligned bit string 

vs 

Varying string descriptor 

vt 

Varying character-coded text str. 

vsa 

Varying string array desc 

vu 

Unaligned bit string 

X 

Class type in descriptor 

w 

Word integer (signed) 

xl 

Fixed-length or dynamic 

wu 

Word logical (unsigned) 


string descriptor 

X 

Data type in descriptor 



z 

Unspecified 



zem 

Procedure entry mask 



zi 

Sequence of instruction 
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The notation xy.z means that the argument is passed only to a user-supplied procedure, and 
can have any access type (x), data type (y), and passing mechanism (z). 

The order of parameters is generally: 

1. Required input (read, jump, function access) 

2. Required input/output (modify access) 

3. Required output (write access) 

4. Optional input (read, jump, function access) 

5. Optional input/output (modify access) 

6. Optional output (write access) 

Note 

JSB entry points accept parameters in the preceding order in registers starting 
at RO. 


BASIC-Specific Procedures 

BAS$BUFSIZ 

Get Buffer Size 

ret-value.wl.v = BASSBUFSIZ (unit.rlu.v) 

BAS$CANTYPAHEAD 

Cancel Type Ahead 

CALL BASSCANTYPAHEAD (unit.rlu.v) 

BAS$CCPOS 

Get Current Cursor Position 
cursor-pos.wl.v = BAS$CCPOS (unit.rlu.v) 

BAS$CHANGE_NA_S 

Convert Array of Numbers to String 

CALL BAS$CHANGE_NA^S (in-str.rx.da, out-str.wt.dxl) 

BAS$CHANGE_S_NA 

Convert String to Array of Numbers 

CALL BAS$CHANGE_S_NA (in-str.rt.dxl, out-str.wx.da) 

BAS$CHR 

Convert Byte to One-Character String 

CALL BAS$CHR (out-str.wt.dxl,value.rbu.v) 

BASSCLOSE 

Close Logical Unit 

CALL BAS$CLOSE (unit.rlu.v) 

BAS$CMPD^\PP 

Compare Two D_floating Values 

ret-status.wlc.v = BAS$CMPD_APP (vail .rd.v, val2.rd.v) 

BAS$CMPF^\PP 

Compare Two F_floating Values 

ret-status.wlc.v = BAS$CMPF_APP (vail .rf.v, val2.rf.v) 

BASSCOMP 

Compare Two Numeric Strings 

diff.wl.v = BAS$COMP (in-strl.rt.dxl, in-str2.rt.dx1) 

BASSCOMPARE 

Compare Two Strings of Any Data Type and Class 
match.wl.v = BASSCOMPARE (in-strl .rt.dxl, in-str2.rt.dx1) 
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BAS$CTRLC 

BAS$CVT_D_S 

BAS$CVT_F_S 

BAS$CVT_OUT_D_E 

BAS$CVT_OUT_D_F 

BAS$CVT_OUT_D_G 

BAS$CVT_0 UT_F_E 

BAS$CVT_OUT_F_F 

BAS$CVT_S_D 

BAS$CVT_S_F 

BAS$CVT_S_W 

BAS$CVT_W_S 

BAS$DATE_T 

BAS$DELETE 

BAS$DET_D 

BAS$DET_F 


Enable CTRL/C Traps 
CALL BAS$CTRLC 

Convert D_floating to Eight-Character String 
CALL BAS$CVT_D_S (out-str.wt.d, value.rd.v) 

Convert F_floating to Four-Character String 
CALL BAS$CVT_F_S (out-str.wt.d, value.rf.v) 

Convert D_floating to E-format 

CALL BAS$CVT_OUT_D_E (value.rd.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wwu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl] [,digit-sep.rt.dx1] [,radix-pt.rt.dx1]) 

Convert D_floating to F-format 

CALL BAS$CVT_OUT_D_F (value.rd.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.ww.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl] [,digit-sep.rt.dxl] [,radix-pt.rt.dxl]) 

Convert D_floating to E- or F-format 

CALL BAS$CVT_OUT_D_G (value.rd.r, flags.rlu.v, out-str-len.ww.r, 
out-str.wt.dxl [,sca-fac.rb.v [,num-digits.rl.v]]) 

Convert F_floating to E-format 

CALL BAS$CVT_OUT_F_E (value.rf.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.wwu.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl] [,digit-sep.rt.dxl] [,radix-pt.rt.dxl]) 

Convert F_floating to F-format 

CALL BAS$CVT_OUT_F_F (value.rf.r, num-int.rlu.v, num-fra.rlu.v, 
flags.rlu.v, out-str-len.ww.r, out-str.wt.dxl [,sca-fac.rb.v] 

[,currency.rt.dxl] [,digit-sep.rt.dxl] [,radix-pt.rt.dxl]) 

Convert Eight-Character String to D_floating 
ret-value.wd.v = BAS$CVT_S_D (in-str.rt.d) 

Convert Four-Character String to F_floating 
ret-value.wf.v = BAS$CVT_S_D (in-str.rt.d) 

Convert Two-Character String to Word Integer 
ret-value.ww.v = BAS$CVT_S_W (in-str.rt.d) 

Convert Word Integer to Two-Character String 
CALL BAS$CVT_W_S (out-str.wt.d, value.rw.v) 

Perform BASIC Function, DATES 

CALL BAS$DATE_T (date-str.wt.dxl, day-num.rl.v) 

Delete Record 

CALL BASSDELETE (unit.rlu.v) 

Retrieve D_floating Determinant 
result.wd.v = BAS$DET_D 

Retrieve F_floating Determinant 
result.wf.v = BAS$DET_F 
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BASSDIF 


BAS$DSCALE_D_R1 

JSB 

BAS$ECHO 


BASSEDIT 


BAS$END_DEF_R8 

JSB 

BAS$END_DFS_R8 

JSB 

BAS$END_GSB_R8 

JSB 

BAS$END_R8 

JSB 

BAS$FETCH_BFA 


BAS$FET_FA_D_R8 

JSB 


BAS$FET_FA_F_R8 

JSB 


BAS$FET_FA_L_R8 

JSB 


BAS$FET_FA_W_R8 

JSB 


BAS$FIELD_CLEAR 


BAS$FIELD_CLOSE 


BAS$FIELD_COPY 


BAS$FIELD_COP_R 


Subtract Two Numeric Strings 

CALL BAS$DIF (out-str.wt.dxl, in-strl.rt.dxl, on-str2.rt.dx1) 

Descale D_floating Value 

result.wd.v = BAS$DSCALE_D_R1 (value,rd.v) 

Enable Echoing on Logical Unit 
CALL BASSECHO (unit.rlu.v) 

Perform BASIC Function, EDIT 

CALL BAS$EDIT (out-str.wt.dxl, in-str.rt.dxl, mask.rwu.v) 

Remove BASIC DEF Frame 
BAS$END_DEF_R8 (arg-list.ra.v) 

Remove BASIC DEF* Frame 
BAS$END_DEF_R8 (arg-list.ra.v) 

Return from BASIC GOSUB 
BAS$END_GSB_R8 

Remove BASIC Procedure Frame 
BAS$END_R8 (arg-list.ra.v) 

Fetch Value from Array by Descriptor 

CALL BAS$FETCH_BFA (array-dsc.rx.da, val-dsc.wx.dxl, indexl.rl.v 
[,index2.rl.v]) 

Fetch D_floating Value from Array 

in-val.wd.v = BAS$FET_FA_D_R8 (array-dsc.rd.da, indexl .rl.v 
[,index2.rl.v]) 

Fetch F_floating Value from Array 

in-val.wf.v = BAS$FET_FA_F_R8 (array-dsc.rf.da, indexl .rl.v 
[,index2.rl.v]) 

Fetch Longword Integer from Array 

in-val.wl.v = BAS$FET_FA_I_R8 (array-dsc.rl.da, indexl.rl.v 

[,index2.rl.v]) 

Fetch Word Integer from Array 

in-val.ww.v = BAS$FET_FA_W_R8 (array-dsc.rw.da, indexl.rl.v 
[,index2.rl.v]) 

Remove FIELD Variable 

CALL BAS$FIELD_CLEAR (fld-var.at.d) 

Remove all FIELD Variables 
CALL BAS$FIELD_CLOSE (unit.rlu.v) 

Copy FIELD Variable 

CALL BAS$FIELD_COPY (stmt-type.rlu.v, out-var.wt.dxl, in-var.rt.dxl) 
Copy FIELD Variable by Reference 

CALL BAS$FIELD_COP_R (stmt-type.rlu.v, out-var.wt.dxl, 
in-var-len.rl.v, in-var-adr.rt.r) 
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BAS$FIELD_OPEN 


BAS$FIELD_PURGE 

BAS$FIELD_SET 

BAS$FIELD_VAR 

BAS$FIND 

BAS$FIND_KEY 

BAS$FIND_RECORD 

BAS$FORMAT_D 

BAS$FORMAT_F 

BASSFREE 

BASSFSP 

BASSGET 

BAS$GET_KEY 

BAS$GET_RECORD 

BAS$INIT_C_GSB 

BAS$INIT_DEF_R8 

)SB 

B AS$ IN IT_D F S_R8 

JSB 

BAS$INIT_GOSUB 


Open File 

CALL BAS$FIELD-OPEN (unit.rlu.v) 

Purge FIELD Variables 

CALL BAS$FIELD-PURGE (decl.rl.v) 

Execute FIELD Statement 

CALL BAS$FIELD_SET (unit.rlu.v, decl.rl.v, in-varl-len.rl.v, 
in-varl-adr.rt.r [, ... ]) 

Declare FIELD Variable 

CALL BAS$FIELD_VAR (unit.rlu.v, offset.rl.v, in-var-len.rl.v, decl.rl.v, 
in-var-adr.rt.d, rec-buf.ra.v) 

Locate Next Sequential Record 
CALL BASSFIND (unit.rlu.v) 

Locate Record with Key 

CALL BAS$FIND_KEY (unit.rlu.v, key-no.rl.v, rel-opr.rl.v, 
key-str.rx.dy) 

Locate Relative Record 

CALL BAS$FIND_RECORD (unit.rlu.v, rec-num.rlu.v) 

Convert D_floating to Formatted String 

CALL BAS$FORMAT_D (out-str.wt.dxl, value.rd.r, format.rt.dxl) 
Convert F_floating to Formatted String 

CALL BAS$FORMAT_F (out-str.wt.dxl, value.rf.r, format.rt.dxl) 

Unlock all Records on Logical Unit 
CALL BASSFREE (unit.rlu.v) 

Get File Attributes 

CALL BASSFSP (result.wb.dxl, unit.rlu.v) 

Read Next Record 
CALL BASSGET (unit.rlu.v) 

Read Record with Key 

CALL BAS$GET_KEY (unit.rlu.v, [,key-no.rl.v, rel-opr.rl.v, 
key-str.rx.dy]) 

Read Relative Record 

CALL BAS$GET_RECORD (unit.rlu.v, rec-num.rlu.v) 

Build Frame for Computed BASIC GOSUB 
CALL BAS$INIT_C_GSB (table.rx.r, index.rl.v) 

Build Frame for BASIC DEF 

BAS$INIT_DEF_R8 (arg-list.rx.v, data-reloc.ra.v) 

Build Frame for BASIC DEF* 

BAS$INIT_DFS_R8 (arg-list.rx.v, data-reloc.ra.v) 

Build Frame for BASIC GOSUB 
CALL BAS$INIT_GOSUB (new-pc.ra.v) 
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BAS$INIT_IOL 

Build Frame for Immediate Mode 

CALL BAS$INIT_IOL (new-pc.ra.v, root-fmp.ra.v) 

BAS$INIT_ONERR 

Build Frame for BASIC Condition Handler 

ret-value.wa.v = BAS$INIT_ONERR (old-fmp.ra.v, new-pc.ra.v) 

BAS$INIT_R8 

JSB 

Build Frame for BASIC Procedure 

BAS$INIT_R8 (arg-list.rx.v, data-reloc.ra.v, code-reloc.ra.v) 

BAS$INPUT 

Prepare to Read Data Elements from Logical Unit 

CALL BASSINPUT (unit.rlu.v) 

BAS$INPUT_LINE 

Prepare to Read Line including Terminator from Logical Unit 

CALL BAS$INPUT_LINE (unit.rlu.v) 

BAS$INSTR 

Return Relative Position of Substring 

find-pos.wlu.v = BASSINSTR (start-pos.rw.v, in-str.rt.dxl, 
sub-str.rt.dxl) 

BAS$IN_D_R 

Input D_floating Value 

CALL BAS$IN_D_R (element.wd.r) 

BAS$IN_F_R 

Input F_floating Value 

CALL BAS$IN_F_R (element.wf.r) 

BAS$IN_I_R 

Input Longword Integer 

CALL BAS$IN_L_R (element.wl.r) 

BAS$IN_MAT 

Input Matrix 

CALL BAS$IN_MAT (array.wx.da) 

BAS$IN_T_DX 

Input Text by Descriptor 

CALL BAS$IN_T_DX (element.wt.dxl) 

BAS$IN_W_R 

Input Word Integer 

CALL BAS$IN_W_R (element.ww.r) 

BAS$IO_END 

Complete BASIC I/O Statement Processing 

CALL BAS$IO_END 

BAS$KILL 

Delete Unopened File 

CALL BASSKILL (filename.rt.dxl) 

BASSLEFT 

Perform BASIC Function, LEFTS 

CALL BASSLEFT (out-str.wt.dxl, in-str.rt.dxl, end-pos.rw.v) 

BASSLINPUT 

Prepare to Read Line without Terminator from Logical Unit 

CALL BASSLINPUT (unit.rlu.v) 

BAS$MAT^\DD 

Add Two Matrices 

CALL BAS$MAT_y\DD (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx 

BAS$MAT_ASSIGN 

Assign One Matrix to Another Matrix 

CALL BAS$MAT^\SSIGN (src-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_IDN 

Initialize Matrix to Identity Matrix 

CALL BAS$MAT_IDN (dst-mat.wx.da) 
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BAS$MAT_INIT 

Initialize Each Element of Matrix to Constant 

CALL BAS$MAT_INIT (dst-mat.wx.da, constant.rl.v) 

BAS$MAT_INPUT 

Prepare to Read Array 

CALL BAS$MAT_INPUT (unit.rlu.v) 

BAS$MAT_INV 

Invert Matrix 

CALL BAS$MAT_INV (src-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_LINPUT 

Prepare to Read Array of String Elements 

CALL BAS$MAT_LINPUT (unit.rlu.v) 

BAS$M AT_M U L 

Multiply Matrix by another Matrix 

CALL BAS$MAT_MUL (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_NULL 

Initialize String Matrix to Null Strings 

CALL BAS$MAT_NULL (dst-mat.wx.da) 

BAS$MAT_PRINT 

Prepare to Write Array 

CALL BAS$MAT_PRINT (unit.rlu.v) 

BAS$MAT_READ 

Prepare to Read Internal Data into Array 

CALL BAS$MAT_READ 

BAS$MAT_REDIM 

Redimension Matrix 

CALL BAS$MAT_REDIM (dst-mat.wx.da, rows.rl.v [,cols.rl.v]) 

BAS$MAT_SCA_MUL 

Multiply Each Element of Matrix by Scalar Quantity 

CALL BAS$MAT_SCA_MUL (scalar.rz.r, scalar-dtype.rlu.v, 
src-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_SUB 

Subtract Matrix from Another Matrix 

CALL BAS$MAT_SUB (srcl-mat.rx.da, src2-mat.rx.da, dst-mat.wx.da) 

BAS$MAT_TRN 

Transpose One Matrix into Another Matrix 

CALL BAS$MAT_TRN (src-mat.rx.da, dst-mat.wx.da) 

BASSNOECHO 

Disable Echoing on Logical Unit 

CALL BASSNOECHO (unit.rlu.v) 

BASSNUM 

Returns Number of Elements or Rows Read 

CALL BASSNUM 

BAS$NUM2 

Returns Number of Elements Input in Last Row 

CALL BAS$NUM2 

BASSOPEN 

OPEN File 

CALL BASSOPEN (open-arg-blk.mz.r [,key-info-blk.rl.ra]) 

BASSO UT_D_V_B 

Output D_floating with no Format Character 

CALL BASSOUT_D_V_B (element.rd.v) 

BASSO UT_D_V_C 

Output D_floating with Comma 

CALL BASSOUT_D_V_C (element.rd.v) 

BAS$OUT_D_V_S 

Output D_floating with Semicolon 

CALL BASSOUT_D_V_S (element.rd.v) 
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BASSO UT_F_V_B 

Output F_floating with no Format Character 

CALL BASSOUT_F_V_B (element.rf.v) 

BASSO UT_F_V_C 

Output F_floating with Comma 

CALL BASSOUT_F_V_C (element.rf.v) 

BASSO UT_F_V_S 

Output F_floating with Semicolon 

CALL BASSOUT_F_V_S (element.rf.v) 

BASSO UT_I_V_B 

Output Longword Integer with no Format Character 

CALL BASSOUT_I_V_B (element.rl.v) 

BASSO UT_I_V_C 

Output Longword Integer with Comma 

CALL BASSOUT_I_V_C (element.rl.v) 

BAS$OUT_l_V_S 

Output Longword Integer with Semicolon 

CALL BASSOUT_I_V_S (element.rl.v) 

BASSO UT_MAT_B 

Output Matrix with no Format Character 

CALL BAS$OUT_MAT_B (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

BASSO UT_MAT_C 

Output Matrix with Comma 

CALL BAS$OUT_MAT_C (array.rx.da [,sub1 .rlu.v [,sub2.rlu.v]]) 

BASSO UT_MAT_S 

Output Matrix with Semicolon 

CALL BAS$OUT_MAT_S (array.rx.da [,sub1.rlu.v [,sub2.rlu.v]]) 

BASSO UT_T_DX_B 

Output Text with no Format Character 

CALL BASSOUT_T_DX_B (element.rt.dxl) 

BASSO UT_T_DX_C 

Output Text with Comma 

CALL BASSOUT_T_DX_C (element.rt.dxl) 

BASSO UT_T_DX_S 

Output Text with Semicolon 

CALL BASSOUT_T_DX_S (element.rt.dxl) 

BASSPLACE 

Round or Truncate Numeric String 

CALL BASSPLACE (out-str.wt.dxl, in-strl .rt.dxl, precision.rl.v) 

BASSPOS 

Return Relative Position of Substring 

find-pos.wlu.v = BASSPOS (in-str.rt.dxl, sub-str.rt.dxl, 

start-pos.rw.v) 

BASSPOWDD 

Raise D_floating Base to D_floating Power 
value.wd.v = BASSPOWDD (base.rd.v, exp.rd.v) 

BASSPOWD) 

Raise D_floating Base to Longword Integer Power 
value.wd.v = BASSPOWDJ (base.rd.v, exp.rl.v) 

BASSPOWII 

Raise Word Integer Base to Word Integer Power 
value.ww.v = BASSPOWII (base.rw.v, exp.rw.v) 

BASSPOWJ] 

Raise Longword Integer Base to Longword Integer Power 
value.wl.v = BASSPOWJ] (base.rl.v, exp.rl.v) 

BASSPOWRJ 

Raise F_floating Base to Longword Integer Power 
value.wf.v = BASSPOWRJ (base.rf.v, exp.rl.v) 
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BAS$POWRR 

BAS$PRINT 

BAS$PRINT_USING 

BASSPROD 

BASSPUT 

BAS$PUT_COUNT 

BAS$PUT_REC_CNT 

BAS$PUT_RECORD 

BASSQUO 

BASSRAD 

BASSRANDOMIZE 

BASSRCTRLC 

BASSRCTRLO 

BAS$READ 

BAS$RESTART_IO 

BAS$RESTORE 

BAS$RESTORE_DAT 

BAS$RESTORE_KEY 

BASSRESUME 


Raise F_floating Base to F_floating Power 
value.wf.v = BAS$POWRR (base.rf.v, exp.rf.v) 

Prepare to PRINT Data Elements 
CALL BASSPRINT (unit.rlu.v) 

Prepare to PRINT Formatted Output 

CALL BAS$PRINT_USING (unit.rlu.v, format.rt.dxl) 

Multiply Two Numeric Strings 

CALL BASSPROD (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl, 
precision.rl.v) 

Write Next Record to Logical Unit 
CALL BASSPUT (unit.rlu.v) 

Write Next Record to Logical Unit with) Count 
CALL BAS$PUT_COUNT (unit.rlu.v, count.rlu.v) 

Write Relative Record to Logical Unit with) Count 

CALL BAS$PUT_REC_CNT (unit.rlu.v, rec-num.rlu.v, count.rlu.v) 

Write Relative Record to Logical Unit 

CALL BAS$PUT_RECORD (unit.rlu.v, rec-num.rlu.v) 

Divide Two Numeric Strings 

CALL BASSQUO (out-str.wt.dxl, in-strl .rt.dxl, in-str2.rt.dxl, 
precision.rl.v) 

Perform BASIC Function, RAD$ 

CALL BASSRAD (out-str.wt.dxl, rad50.rw.v) 

Initialize Random Number Seed 
CALL BASSRANDOMIZE () 

Disable CTRL/C Traps 
CALL BASSRCTRLC 

Cancel CTRL/O 

CALL BASSRCTRLO (unit.rlu.v) 

Prepare to Read Internal Data 
CALL BASSREAD 

Restart I/O Statement 
CALL BAS$RESTART_IO 

Rewind File on Logical Unit 
CALL BASSRESTORE (unit.rlu.v) 

Rewind Internal Data File 
CALL BAS$RESTORE_DAT 

Rewind File on Logical Unit with Key 

CALL BAS$RESTORE_KEY (unit.rlu.v, key-no.rlu.v) 

Return from User Condition Handler 
CALL BASSRESUME (new-pc.ra.v) 
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BAS$RESUME_Z 

BAS$RIGHT 

BAS$RND_F_R1 

)SB 

BAS$RSET 

BAS$RSET_R 

BAS$RUN_INIT 

BAS$SCALE_D_R1 

BAS$SCRATCH 

BASSSEG 

BASSSLEEP 

BASSSTATUS 

BAS$STORE_BFA 

BAS$ST 0_FA_D_R8 

JSB 

BAS$ST 0_FA_F_R8 

JSB 

BAS$ST 0_FA_l_R8 

JSB 

BAS$STO_FA_RDX 


Return from User Condition Handler with Zero in RO 
CALL BAS$RESUME_Z (old-pc.ra.v) 

Perform BASIC Function, RIGHTS 

CALL BASSRIGHT (out-str.wt.dxl, in-str.rt.dxl, start-pos.rw.v) 

Random Number Generator 
result.wf.v = BAS$RND_F_R1 () 

Copy String, Right Justified, by Descriptor 
CALL BASSRSET (out-str.wt.dxl, in-str.rt.dxl) 

Copy String, Right Justified, by Reference 

CALL BAS$RSET_R (out-str.wt.dxl, in-str-len.rlu.v, in-str-adr.rlu.v) 

Initialize User Environment 
CALL BAS$RUN_INIT 

Scale D_floating Value 

result.wd.v = BAS$SCALE_D_R1 (value.rd.v) 

Truncate File on Logical Unit at Current Record 
CALL BASSSCRATCH (unit.rlu.v) 

Perform BASIC Function, SEG$ 

CALL BASSSEG (out-str.wt.dxl, in-str.rt.dxl, start-pos.rw.v, 
end-pos.rw.v) 

Suspend Program Execution 
CALL BASSSLEEP (seconds.rl.v) 

Return Status of Last Logical Unit Opened 
ret-status.wlc.v = BASSSTATUS 

Stores Value in Array by Descriptor 

CALL BAS$STORE_BFA (val-dsc.rx.d, array-dsc.wx.da, indexl.rl.v 
[,index2.rl.v]) 

Store D_floating Value in Array 

BAS$STO_FA_D_R8 (out-val.rd.v, array-dsc.wd.da, indexl.rl.v 
[,index2.rl.v]) 

Store F_floating Value in Array 

BAS$STO_FA_F_R8 (out-val.rf.v, array-dsc.wf.da, indexl.rl.v 
[,index2.rl.vb 

Store Longword Integer in Array 

BAS$STO_FA_L_R8 (out-val.rl.v, array-dsc.wl.da, indexl .rl.v 
[,index2.rl.v]) 

Store String Element in Array by Reference 

CALL BAS$STO_FA_RDX (str-len.rl.v, str-adr.rt.r, array-dsc.rx.da, 
indexl.rl.v [,index2.rl.v]) 
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BAS$ST 0_FA_W_R8 

JSB 

Store Word Integer in Array 

BAS$STO_FA_W_R8 (out-val.rw.v, array-dsc.ww.da, indexl.rl.v 
[,index2.rw.v]) 

BASSSTRING 

Generate String of Duplicate Characters 

CALL BASSSTRING (out-str.wt.dxl, len.rw.v, char.rb.v) 

BAS$STR_D 

Convert D_floating to Numeric String 

CALL BAS$STR_D (out-str.wt.dxl, value.rd.r) 

BAS$STR_F 

Convert F_floating to Numeric String 

CALL BAS$STR_F (out-str.wt.dxl, value.rf.r) 

BAS$STR_L 

Convert Longword Integer to Numeric String 

CALL BAS$STR_L (out-str.wt.dxl, value.rl.r) 

BASSSUM 

Add Two Numeric Strings 

CALL BASSSUM (out-str.wt.dxl, in-strl.rt.dxl, in-str2.rt.dx1) 

BASSSYS 

Execute RSTS/E-compatible SYS () Function 

CALL BASSSYS (out-str.wz.dxl, in-str.rz.dxl) 

BASSTAB 

Generate String of Spaces 

CALL BASSTAB (out-str.wt.dxl, position.rl.v) 

BAS$TIME_F 

Perform BASIC Function, TIME 
ret-value.wf.v = BAS$TIME_F (type.rl.v) 

BAS$TIME_T 

Perform BASIC Function, TIMES 

CALL BAS$TIME_T (time-str.wt.dxl, time-num.rl.v) 

BASSTRM 

Delete Trailing Tabs and Spaces 

CALL BASSTRM (out-str.wt.dxl, in-str.rt.dxl) 

BASSUNLOCK 

Unlock Current Record on Logical Unit 

CALL BASSUNLOCK (unit.rlu.v) 

BASSUPDATE 

Update Current Record on Logical Unit 

CALL BASSUPDATE (unit.rlu.v) 

BAS$UPDATE_COUN 

Update Current Record on Logical Unit with Count 

CALL BAS$UPDATE_COUN (unit.rlu.v) 

BASSVAI_D 

Convert Numeric String to D_floating Value 

value.wd.v = BAS$VAL_D (in-str.rt.dxl [,sca-fac.rb.v]) 

BAS$VAI_F 

Convert Numeric String to F_floating Value 

value.wf.v = BASSVAI_F (in-str.rt.dxl [,sca-fac.rb.v]) 

BASSVAI_L 

Convert Numeric String to Longword Integer 
value.wl.v = BASSVAI_L (in-str.rt.dxl [,sca-fac.rb.v]) 

BASSWAIT 

Perform BASIC Statement, WAIT 

CALL BASSWAIT (seconds.rl.v) 
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BASSXLATE 


Perform BASIC Function, XLATE 

CALL BAS$XLATE (out-str.wt.dxl, in-str.rt.dxl, table.rt.dxl) 


COBOL-Specific Procedures 

COBSACCEPT 


Read Record from Logical Unit 

ret-value.wl.v = COB$ACCEPT (inp-array.rbu.va, string.wt.ds) 

COB$ACC_DATE 


Return Current Date 

CALL COB$ACC_DATE (dst.wt.ds) 

CO B$ ACC_D A Y 


Return Current Day as Number 

CALL COB$ACC_DATE (dst.wt.ds) 

COB$ACC_DAYWEEK 

Return Day of Week as ASCII Integer 

COB$ACC_DAYWEEK (dst.wt.ds) 

COB$ACC_TIME 


Return Time of Day as ASCII String 

CALL COB$ACC_TIME (dst.wt.ds) 

COBSADDI 


Add COBOL Intermediate Temporary 

ret-status.wlc.v = COB$ADDI (addend2.rx.dx1, addendl .rx.dxl, 
sum.wx.dxl) 

COBSCALL 


Perform CALL Statement 
ret-status.wlc.v = COBSCALL (desc.rt.ds) 

COBSCANCEL 


Perform CANCEL Statement 

CALL COBSCANCEL (desc.rt.ds) 

COBSCMPI 


Compare COBOL Intermediate Temporary 
value.wl.v = COBSCMPI (src.1 .rx.dxl, src2.rx.dxl) 

COBSCNVOUT 


Convert D_floating, G_floating, or H_floating to FORTRAN E Format 
ret-status.wlc.v = COBSCNVOUT (value.rx.r, out-str.wt.ds, 
digits-in-fract.rlu.v) 

COB$CVTDI_R7 

JSB 

Convert D_floating to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTDI_R7 (src.rd.r, dst.wx.r) 

COB$CVTDP_R9 

JSB 

Convert D_floating to Packed Decimal 

ret-status.wlc.v = COB$CVTDP_R9 (scale.rl.v, src.rd.r, dstlen.rl.v, 
dst.wp.r) 

COB$CVTDQ_R8 

JSB 

Convert D_floating to Quadword 

ret-status.wlc.v = COB$CVTDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 

COB$CVTFI_R7 

JSB 

Convert F_floating to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTFI_R7 (src.rf.r, dst.wx.r) 

COB$CVTFP_R9 

JSB 

Convert F_floating to Packed Decimal 

ret-status.wlc.v = COB$CVTFP_R9 (scale.rl.v, src.rf.r, dstlen.rl.v, 
dst.wp.r) 

COB$CVTFQ_R8 

JSB 

Convert F_floating to Quadword 

ret-status.wlc.v = COB$CVTFQ_R8 (scale.rl.v, src.rf.r, dst.wq.r) 
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COB$CVTID_R7 

JSB 

Convert COBOL Intermediate Temporary to D_floating 
ret-status.wlc.v = COB$CVTID_R7 (src.rx.r, dst.wd.r) 

COB$CVTI F_R7 

JSB 

Convert COBOL Intermediate Temporary to F_Floating 
ret-status.wlc.v = COB$CVTIF_R7 (src.rx.r, dst.wf.r) 

COB$CVTII_R8 

JSB 

Convert COBOL Intermediate Temporary to Longword 
ret-status.wlc.v = COB$CVTIL_R8 (scale.rl.v, src.rx.r, dst.wl.r) 

COB$CVTIP_R9 

JSB 

Convert COBOL Intermediate Temporary to Packed Decimal 
ret-status.wlc.v = COB$CVTIP_R9 (scale.rl.v, src.rx.r, dstlen.rl.v, 
dst.wp.r) 

CO B$C VT1 Q_R8 

JSB 

Convert COBOL Intermediate Temporary to Quadword 
ret-status.wlc.v = COB$CVTIQ_R8 (scale.rl.v, src.rx.r, dst.wq.r) 

COB$CVTIW_R8 

JSB 

Convert COBOL Intermediate Temporary to Word 
ret-status.wlc.v = COB$CVTIW_R8 (scale.rl.v, src.rx.r, dst.ww.r) 

COB$CVTLI_R8 

JSB 

Convert Longword to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTLI_R8 (scale.rl.v, src.rl.r, dst.wx.r) 

COB$CVTPD_R9 

JSB 

Convert Packed Decimal to D_floating 

ret-status.wlc.v = COB$CVTPD_R9 (scale.rl.v, srclen.rl.v, src.rp.r, 
dst.wd.r) 

COB$CVTPF_R9 

JSB 

Convert Packed Decimal to F_floating 

ret-status.wlc.v = COB$CVTPF_R9 (scale.rl.v, srclen.rl.v, src.rp.r, 
dst.wf.r) 

COB$CVTPI_R9 

JSB 

Convert Packed Decimal to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTPI_R9 (scale.rl.v, srclen.rl.v, src.rp.r, 
dst.wx.r) 

COB$CVTPQ_R9 

JSB 

Convert Packed Decimal to Quadword 

ret-status.wlc.v = COB$CVTPQ_R9 (scale.rl.v, srclen.rl.v, src.rp.r, 
dst.wq.r) 

COB$CVTQD_R8 

JSB 

Convert Quadword to D_floating 

ret-status.wlc.v = COB$CVTQD_R8 (scale.rl.v, src.rq.r, dst.wd.r) 

COB$CVTQF_R8 

JSB 

Convert Quadword to F_floating 

ret-status.wlc.v = COB$CVTQF_R8 (scale.rl.v, src.rq.r, dst.wf.r) 

COB$CVTQI_R8 

JSB 

Convert Quadword to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTQF_R8 (scale.rl.v, src.rq.r, dst.wx.r) 

COB$CVTQP_R9 

JSB 

Convert Quadword to Packed Decimal 

ret-status.wlc.v = COB$CVTQP_R9 (scale.rl.v, src.rq.r, dstlen.rl.v, 
dst.wp.r) 

COB$CVTRDP_R9 

JSB 

Convert D_floating to Packed Decimal (Rounded) 

ret-status.wlc.v = COB$CVTRDP_R9 (scale.rl.v, src.rd.r, dstlen.rl.v, 

dst.wp.r) 
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COB$CVTRDQ_R8 

JSB 

COB$CVTRFP_R9 

JSB 


COB$CVTRFQ_R8 

JSB 

COB$CVTRI I_R8 

JSB 

COB$CVTRIP_R9 

JSB 


COB$CVTRIQ_R8 

JSB 

COB$CVTRIW_R8 

JSB 

COB$CVTRPQ_R9 

JSB 


COB$CVTRQP_R9 

JSB 


COB$CVTTI_R8 

JSB 

COB$CVTWI_R8 

JSB 

COBSDBEXCEPTION 


COBSDISPLAY 


COB$DISP_NO_ADV 


COBSDIVI 


COB$DIVI_OSE 


Convert D_floating to Quadword (Rounded) 

ret-status.wlc.v = COB$CVTRDQ_R8 (scale.rl.v, src.rd.r, dst.wq.r) 

Convert F_floating to Packed Decimal (Rounded) 

ret-status.wlc.v = COB$CVTRFP_R9 (scale.rl.v, src.rf.r, dstlen.rl.v, 

dst.wp.r) 

Convert F_floating to Quadword (Rounded) 

ret-status.wlc.v = COB$CVTRFQ_R8 (scale.rl.v, src.rf.r, dst.wq.r) 

Convert COBOL Intermediate Temporary to Longword (Rounded) 
ret-status.wlc.v = COBSCVTRII_R8 (scale.rl.v, src.rx.r, dst.wl.r) 

Convert COBOL Intermediate Temporary to Packed Decimal 
(Rounded) 

ret-status.wlc.v = COB$CVTRIP_R9 (scale.rl.v, src.rx.r, dstlen-rl.v, 
dst.wp.r) 

Convert COBOL Intermediate Temporary to Quadword (Rounded) 
ret-status.wlc.v = COB$CVTRIQ_R8 (scale.rl.v, src.rx.r, dst.wq.r) 

Convert COBOL Intermediate Temporary to Word (Rounded) 
ret-status.wlc.v = COB$CVTRIW_R8 (scale.rl.v, src.rx.r, dst.ww.r) 

Convert Packed Decimal to Quadword (Rounded) 

ret-status.wlc.v = COB$CVTRPQ_R9 (scale.rl.v, srclen.rl.v, src.rp.r 

dst.wq.r) 

Convert Quadword to Packed Decimal (Rounded) 

ret-status.wlc.v = COB$CVTRQP_R9 (scale.rl.v, src.rq.r, dstlen.rl.v, 

dst.wp.r) 

Convert ASCII Text String to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTTI_R8 (srclen.rl.v, src.rt.r, dst.wx.r) 

Convert Word to COBOL Intermediate Temporary 
ret-status.wlc.v = COB$CVTWI_R8 (scale.rl.v, src.rw.r, dst.wx.r) 

Process Data Base Exception 

ret-status.wlc.v = COBSDBEXCEPTION (dbms-stat.rr.r) 

Display Text on Logical Unit 

ret-status.wlc.v = COBSDISPLAY (unit.rl.v, string.rt.dxl [, ... ]) 

Display Text on Logical Unit Without Advancing 
ret-status.wlc.v = COB$DISP_NO_ADV (unit.rl.v, string.rt.dxl 
[, ••• 1 ) 

Divide COBOL Intermediate Temporary 

ret-status.wlc.v = COBSDIVI (divisor.rx.dxl, dividend.rx.dxl, 
quotient.wx.dxl) 

Divide COBOL Intermediate Temporary On Size Error 
ret-status.wlc.v = COB$DIVI_OSE (divisor.rx.dxl, dividend.rx.dxl, 
quotient.wx.dxl) 
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COB$DIVQ_R8 

JSB 

Divide Quadwords 

COB$DIVQ_R8 (divisor.rq.r, dividend.rq.r, quotient.wq.r) 

COBSERROR 

Signal Errors Detected at Run Time 

CALL COB$ERROR (error.rl.v [,aux_info.rl.v]) 

COBSEXPI 

Exponentiate COBOL Intermediate Temporary 
ret-status.wlc.v = COB$EXPI (base.rx.dxl, exponent.rx.dxl, 
power.wx.dxl) 

COB$EXPI_OSE 

Exponentiate COBOL Intermediate Temporary On Size Error 
ret-status.wlc.v = COB$EXPI_OSE (base.rx.dxl, exponent.rx.dxl, 
power.wx.dxl) 

COBSHANDLER 

Set Up Error Handling Procedures 

ret-status.wlc.v = COB$HANDLER (signal.rl.a, mechanism.rl.a) 

COB$INIT_LINAGE 

Initialize Linage Routine 

CALL COB$INIT_LINAGE (ctx.ra.v) 

COBSIOEXCEPTION 

Process I/O Exception 

ret-status.wlc.v = COBSIOEXCEPTION (flags.rl.v, rab.ra.v, 
[exclab.jzi.v], [status.ra.r]) 

COB$LINAGE 

Update Linage Counter 

ret-status.wlc.v = COB$LINAGE (rab.ra.v, init_lng_routin.czem.vp) 

COBSMULI 

Multiply COBOL Intermediate Temporary 

ret-status.wlc.v = COB$MULI (multiplier.rx.dxl, multiplicand.rx.dxl, 
product.wx.dxl) 

COB$MULQ_R8 

JSB 

Multiply Quadwords 

COB$MULQ_R8 (multiplier.rq.r, multiplicand.rq.r, product.wq.r) 

COBSPAUSE 

Perform STOP disp Operation 
ret-status.wlc.v = COB$PAUSE (message.rt.dxl) 

COB$SET_SWITCH 

Set/Clear External Switches 

CALL COB$SET_SWITCH (set_mask.mlu.v, do_set.rlu.v) 

COBSSUBI 

Subtract COBOL Intermediate Temporary 

ret-status.wlc.v = COB$SUBI (subtrahend.rx.dxl, minuend.rx.dxl, 
difference.wx.dxl) 

COBSSWITCH 

Read External Switches 

switch-value.wl.v = COBSSWITCH (number.rl.v) 

COB$TERM_LINAGE 

Terminate Linage Routine 

CALL COB$TERM_LINAGE (rab.ra.v) 

FORTRAN-Specific Procedures 

FOR$BACKSPACE 

Reposition Sequential Lile to Beginning of Last Record 


iostat.wl.v = FOR$BACKSPACE (unit.rlu.v [,err-eql.rl.v]) 
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FOR$BITEST 

Test Single Bit (Word) 

result.ww.v = FOR$BITEST (src.rw.r, pos.rw.r) 

FORSBJTEST 

Test Single Bit (Longword) 

result.wl.v = FORSBJTEST (src.rl.r, pos.rl.r) 

FORSCLOSE 

Perform CLOSE Operation 

CALL FORSCLOSE (keywd.rlu.v [,info.rlu.v]) 

FOR$CNV_IN_DEFG 

FORTRAN Data Types D, E, F, G Floating-Point Input Conversion 
ret-status.wlc.v = FOR$CNV_IN_DEFG (inp-str.rt.dxl, value.wd.r 
[,digits-in-fract.rl.v [,scale-factor.rl.v]]) 

FOR$CNV_IN_l 

FORTRAN Integer 1 Format Input Conversion 
ret-status.wlc.v = FOR$CNV_IN_l (inp-str.rt.dxl, value.wl.r) 

FOR$CNV_IN_L 

FORTRAN Logical L Format Input Conversion 
ret-status.wlc.v = FOR$CNV_IN_L (inp-str.rt.dxl, value.wl.r) 

F0R$CNV_IN_0 

FORTRAN Octal O Format Input Conversion 
ret-status.wlc.v = F0R$CNV_IN_0 (inp-str.rt.dxl, value.wl.r) 

FOR$CNV_IN_Z 

FORTRAN Hexadecimal Z Format Input Conversion 
ret-status.wlc.v = FOR$CNV_IN_Z (inp-str.rt.dxl, value.wl.r) 

FOR$CNV_OUT_D 

FORTRAN D Format Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_D (value.rd.r, out-str.wt.ds 
[,digits-in-fract.rlu.v [,scale-factor.rl.v]]) 

FOR$CNV_OUT_E 

FORTRAN E Format Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_E (value.rd.r, out-str.wt.ds 
[,digits-in-fract.rlu.v [,scale-factor.rl.v]]) 

FOR$CNV_OUT_F 

FORTRAN F Format Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_F (value.rd.r, out-str.wt.ds 
[,digits-in-fract.rlu.v [,scale-factor.rl.v]]) 

FOR$CNV_OUT_G 

FORTRAN G Format Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_G (value.rd.r, out-str.wt.ds 
[,digits-in-fract.rlu.v [,scale-factor.rl.v]]) 

FOR$CNV_OUT_l 

FORTRAN Integer 1 Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_l (value.rl.v, out-str.wt.ds) 

FOR$CNV_OUT_L 

FORTRAN Logical L Output Conversion 

ret-status.wlc.v = FOR$CNV_OUT_L (value.rl.v, out-str.wt.ds) 

F0R$CNV_0UT_0 

FORTRAN Octal O Output Conversion 

ret-status.wlc.v = F0R$CNV_0UT_0 (value.rl.v, out-str.wt.ds) 

FOR$CNV_OUT_Z 

FORTRAN Hexadecimal Z Output Conversion 
ret-status.wlc.v = FOR$CNV_OUT_Z (value.rl.v, out-str.wt.ds) 
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FOR$CVT_D_TD 


FOR$CVT_D_TE 


FOR$CVT_D_TF 


FO R$C VT_D_T G 


FO R$C VT_G_TD 


FOR$CVT_G_TE 


FOR$CVT_G_TF 


FOR$CVT_G_TG 


FOR$CVT_H_TD 


FOR$CVT_H_TE 


Convert D_floating to Text (D format) 

ret-status.wlc.v = FOR$CVT_D_TD (value.rd.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp. rlu.v [,flags, rlu.v]]]]) 

Convert D_floating to Text (E format) 

ret-status.wlc.v = FOR$CVT_D_TE (value.rd.r, out-str.wt.ds, 
digits-in- fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp. rlu.v [,flags.rlu.v]]]]) 

Convert D_floating to Text (F format) 

ret-status.wlc.v = FOR$CVT_D_TF (value.rd.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]!]]) 

Convert D_floating to Text (G format) 

ret-status.wlc.v = FOR$CVT_D_TG (value.rd.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert G_floating to Text (D format) 

ret-status.wlc.v = FOR$CVT_G_TD (value.rg.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert G_floating to Text (E format) 

ret-status.wlc.v = FOR$CVT_G_TE (value.rg.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert G_floating to Text (F format) 

ret-status.wlc.v = FOR$CVT_G_TF (value.rg.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert G_floating to Text (G format) 

ret-status.wlc.v = FOR$CVT_G_TG (value.rg.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert FH_floating to Text (D format) 

ret-status.wlc.v = FOR$CVT_H_TD (value.rh.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert H_floating to Text (E format) 

ret-status.wlc.v = FOR$CVT_FH_TE (value.rh.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 
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FOR$CVT_H_TF 

FOR$CVT_H_TG 

FORSDATE 

FOR$DATE_T_DS 

FORSDELETE 

FOR$DELETE_D 

FORSENDFILE 

FOR$ERRSNS 

FOR$ERRSNS_W 

FORSEXIT 

FOR$EXIT_W 

FORSI DATE 

FORSIIBCLR 

FORSIIBITS 

FORSIIBSET 

FORSIISHFTC 

FORSIMVBITS 


Convert H_floating to Text (F format) 

ret-status.wlc.v = FOR$CVT_H_TF (value.rh.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Convert H_floating to Text (C format) 

ret-status.wlc.v = FOR$CVT_H_TG (value.rh.r, out-str.wt.ds, 
digits-in-fract.rlu.v [,scale-factor.rl.v [,digits-in-int.rlu.v 
[,digits-in-exp.rlu.v [,flags.rlu.v]]]]) 

Return System Date as Nine-Byte String 
CALL FORSDATE (9-byte-array.wb.ra) 

Return System Date as Nine-Character String 
CALL FOR$DATE_T_DS (date-str.wt.ds) 

Delete Current Record (Indexed or Relative) 
iostat.wl.v = FORSDELETE (unit.rlu.v [,err-eql.rlu.v]) 

Delete Record (Direct Access) 

iostat.wl.v = FOR$DELETE_D (unit.rlu.v, rec-num.rl.v [,err-eql.rlu.v]) 

Write End-of-file Record on Logical Unit 
iostat.wl.v = FORSENDFILE (unit.rlu.v [,err-eql.rlu.v]) 

Return Last Error Information in Longwords 

CALL FORSERRSNS ([for-err-num.wlu.r [,rms-status.wlu.r 

[,rms-status-val.wlu.r [,for-lun.wlu.r [,cond-val.wlc.r]]]]]) 

Return Last Error Information in Words 

CALL FORSERRSNS-W ([for-err-num.wwu.r [,rms-status.wwu.r 
[,rms-status-val.wwu.r [,for-lun.wwu.r [,cond-val.wwc.r]]]]]) 

Return Control to Operating System 
CALL FORSEXIT ([completion-code.rl.v]) 

Return Control to Operating System 
CALL FOR$EXIT_W ([completion-code.rw.v]) 

Return Month, Day, Year as INTEGER*2 

CALL FORSIDATE (month.ww.r, day.ww.r, year.ww.r) 

Clear Single Bit (Word) 

result.ww.v = FORSIIBCLR (src.rw.r, pos.rw.r) 

Extract Bit Field (Word) 

result.ww.v = FORSIIBITS (src.rw.r, pos.rw.r, len.rw.r) 

Set Single Bit (Word) 

result.ww.v = FORSIIBSET (src.rw.r, pos.rw.r) 

Circular Shift of Low-Order Bits (Word) 

result.ww.v = FORSIISHFTC (src.rw.r, cnt.rw.r, len.rw.r) 

Move Bit Field to Bit Field (Word) 

CALL FORSIMVBITS (src.rw.r, src-pos.rw.r, len.rw.r, dst.ww.r, 
dst-pos.ww.r) 
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FOR$INI_DES1_R2 

JSB 

Initialize One-Dimensional Array Descriptor 

FOR$INI_DES1_R2 

FOR$INI_DES2_R3 

JSB 

Initialize Two-Dimensional Array Descriptor 

FOR$INI_DES2_R3 

FOR$INI_DESC_R6 

JSB 

Initialize N-Dimensional Array Descriptor 

FOR_INI_DESC_R6 

FORSINQUIRE 


Supports FORTRAN statement, INQUIRE 

CALL FOR$INQUIRE (keywd.mlu.r [Jnfo.wlu.r] [,keywd1 .mlu.r 
[,info1 .wlu.r] [ [, ...]]]) 

FOR$IO_B_R 


Transmit Byte by Reference 

CALL FOR$IO_B_R (element.mb.r) 

FOR$IO_B_V 


Transmit Byte by Value 

CALL FOR$IO_B_V (element.mb.v) 

FOR$IO_DC_R 


Transmit D_complex by Reference 

CALL FOR$IO_DC_R (element.mdc.r) 

FOR$IO_DC_V 


Transmit D_complex by Value 

CALL FOR$IO_DC_V (element.mdc.v) 

FOR$IO_D_R 


Transmit D_floating by Reference 

CALL FOR$IO_D_R (element.md.r) 

FOR$IO_D_V 


Transmit D_floating by Value 

CALL FOR$IO_D_V (element.md.v) 

FOR$IO_END 


Complete FORTRAN I/O Statement Processing 

CALL FOR$IO_END 

FOR$IO_FC_R 


Transmit F_complex by Reference 

CALL FOR$IO_FC_R (element.mfc.r) 

FOR$IO_FC_V 


Transmit F_complex by Value 

CALL FOR$IO_FC_V (element.mfc.v) 

FOR$IO_F_R 


Transmit F_floating by Reference 

CALL FOR$IO_F_R (element.mf.r) 

FOR$IO_F_V 


Transmit F_floating by Value 

CALL FOR$IO_F_V (element.mf.v) 

FOR$IO_GC_R 


Transmit G_complex by Reference 

CALL FOR$IO_GC_R (element.mgc.r) 

FOR$IO_GC_V 


Transmit G_complex by Value 

CALL FOR$IO_GC_V (element.mgc.v) 

FOR$IO_G_R 


Transmit G_floating by Reference 

CALL FOR$IO_G_R (element.mg.r) 

FOR$IO_G_V 


Transmit G_floating by Value 

CALL FOR$IO_G_V (element.mg.v) 
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FOR$IO_H_R 

Transmit FI_floating by Reference 

CALL FOR$IO_H_R (element.mh.r) 

FOR$IO_H_V 

Transmit H_floating by Value 

CALL FOR$IO_H_V (element.mh.v) 

FOR$IO_LU_R 

Transmit Unsigned Longword Integer by Reference 
CALL FOR$IO_LU_R (element.mlu.r) 

FOR$IO_LU_V 

Transmit Unsigned Longword Integer by Value 
CALL FOR$IO_LU_V (element.mlu.v) 

FOR$IO_l_R 

Transmit Longword Integer by Reference 

CALL FOR$IO_l_R (element.ml.r) 

FOR$IO_l_V 

Transmit Longword Integer by Value 

CALL FOR$IO_l_V (element.ml.v) 

FOR$IO_T_DS 

Transmit String by Descriptor 

CALL FOR$IO_T_DS (element.mt.dxl) 

FOR$IO_T_V_DS 

Transmit String by Value 

CALL FOR$IO_T_V_DS (element-adr.xt.ds) 

FOR$IO_WU_R 

Transmit Unsigned Word Integer by Reference 
CALL FOR$IO_WU_R (element.mwu.r) 

FO R$ 10_W U_ V 

Transmit Unsigned Word Integer by Value 

CALL FOR$IO_WU_V (element.mwu.v) 

FOR$IO_W_R 

Transmit Word Integer by Reference 

CALL FOR$IO_W_R (element.mw.r) 

FOR$IO_W_V 

Transmit Word Integer by Value 

CALL FOR$IO_W_V (element.mw.v) 

FOR$IO_X_DA 

Transmit Array by Descriptor 

CALL FOR$IO_X_DA (element.mx.da) 

FOR$IO_X_NL 

Transmit Noncontiguous Implied-DO List 

CALL FOR$IO_X_NL (non-ctg-block.rr.r) 

FOR$IO_X_SB 

Transmit Contiguous Implied-DO List 

CALL FOR$IO_X_SB (ctg-block.rr.r) 

FOR$IO_X_SE 

Transmit Single Element by Descriptor 

CALL FOR$IO_X_SE (element-dsc.rr.r) 

FORSJDATE 

Return Month, Day, Year as INTEGER*4 

CALL FORSJDATE (month.wl.r, day.wl.r, year.wl.r) 

FOR$JIBCLR 

Clear Single Bit (Longword) 

result.wl.v = FORSJIBCLR (src.rl.r, pos.rl.r) 

FORSjlBITS 

Extract Bit Field (Longword) 

result.wl.v = FORSjlBITS (src.rl.r, pos.rl.r, len.rl.r) 
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FORSJIBSET 

Set Single Bit (Longword) 

result.wl.v = FOR$]IBSET (src.rl.r, pos.rl.r) 

FORSJISHFTC 

Circular Shift of Low-Order Bits (Longword) 
result.wl.v = FORSJISFHFTC (src.rl.r, cnt.rl.r, len.rl.r) 

FOR$JMVBITS 

Move Bit Field to Bit Field (Longword) 

CALL FOR$)MVBITS (src.rl.r, src-pos.rl.r, len.rl.r, dst.wl.r, 
dst-pos.wl.r) 

FORSLGE 

Compare Two Strings (Greater Than or Equal) 
condition.wlu.v = FOR$LGE(str1.rx.dx1, str2.rx.dx1) 

FORSLGT 

Compare Two Strings (Greater Than) 

condition.wlu.v = FORSLGT (strl.rx.dxl, str2.rx.dx1) 

FOR$LLE 

Compare Two Strings (Less Than or Equal) 
condition.wlu.v = FORSLLE (strl.rx.dxl, str2.rx.dx1) 

FOR$LLT 

Compare Two Strings (Less Than) 

condition.wlu.v = FOR$LLT (strl.rx.dxl, str2.rx.dxl) 

FORSOPEN 

Perform OPEN Operation 

CALL FORSOPEN (keywd.rlu.v [,info.rlu.v] [,keywd1 .rlu.v 
UnfoI.rlu.vH, ... [, ...]]]) 

FOR$PAUSE 

Suspend Program Execution 

CALL FORSPAUSE ([message.rt.dxl ]) 

FOR$READ_DF 

Prepare for Formatted Direct Read 

CALL FOR$READ_DF (unit.rlu.v, rec-num.rl.v, format-adr.mbu.ra 
[,err-adr.j.r [,end-adr.j.r]]) 

FOR$READ_DO 

Prepare for Formatted Direct Read 

CALL FOR$READ_DO (unit.rlu.v, rec-num.rl.v, ot-format-adr.rt.r 
[,err-adr.j.r [,end-adr.j.rl]) 

FOR$READ_DU 

Prepare for Unformatted Direct Read 

CALL FOR$READ_DU (unit.rlu.v, rec-num.rl.v [,err-adr.j.r 
[,end-adr.j.rll) 

FOR$READ_IF 

Prepare for Formatted Internal Read 

CALL FOR$READ_IF (user-vbl.rt.dxl, format-adr.mbu.ra [,err-adr.j.r 
[,end-adr.j.rll) 

FOR$READ_IO 

Prepare for Formatted Internal Read 

CALL FOR$READ_IO (user-vbl.rt.dxl, ot-format-adr.rt.r l,err-adr.j.r 
[,end-adr.j.r]]) 

FOR$READ_KF 

Prepare for Formatted Indexed Read 

CALL FOR$READ_KF (unit.rlu.v, format-adr.mbu.ra, key.rx.dxl, 
key-id.rl.v, match.rl.v [,err-adr.j.r [,end-adr.j.r]]) 

FOR$READ_KO 

Prepare for Formatted Indexed Read 

CALL FOR$READ_KO (unit.rlu.v, ot-format-adr.rt.r, key.rx.dxl, 
key-id.rl.v, match.rl.v [,err-adr.j.r [,end-adr.j.r]]) 
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FOR$READ_KU 

FOR$READ_SF 

FOR$READ_SL 

FOR$READ_SN 

FOR$READ_SO 

FOR$READ_SU 

FORSREWIND 

FOR$REWRITE_SF 

FOR$REWRITE_SO 

FOR$REWRITE_SU 

FORSSECNDS 

FORSSTOP 

FOR$TIME 

FOR$TIME_T_DS 

FOR$UNDERFLOW. 

FORSUNLOCK 


Prepare for Unformatted Indexed Read 

CALL FOR$READ_KU (unit.rlu.v, key.rx.dxl, key-id.rl.v, match.rl.v 
[,err-adr.j.r [,end-adr.j.r]]) 

Prepare for Formatted Sequential Read 

CALL FOR$READ_SF (unit.rlu.v, format-adr.mbu.ra [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for List-Directed Sequential Read 

CALL FOR$READ_SL (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Prepare for NAMELIST Controlled Sequential Read 
CALL FOR$READ_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Formatted Sequential Read 

CALL FOR$READ_SO (unit.rlu.v, ot-format-adr.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Unformatted Sequential Read 

CALL FOR$READ_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Reposition Sequential File to Beginning 
iostat.wl.v = FORSREWIND (unit.rlu.v [,err-eql.rl.v]) 

Prepare for Formatted Indexed Rewrite 

CALL FOR$REWRITE_SF (unit.rlu.v, format-adr.mbu.ra [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Formatted Indexed Rewrite 

CALL FOR$REWRITE_SO (unit.rlu.v, ot-format-adr.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Unformatted Indexed Rewrite 

CALL FOR$REWRITE_SU (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 

Return System Time in Seconds 
time-diff.wf.v = FORSSECNDS (time-origin.rf.r) 

Terminate Program Execution 
CALL FORSSTOP ([message.rt.dxl]) 

Return System Time as Eight-Byte String 
CALL FORSTIME (8-byte-array.wb.ra) 

Returns System Time as Eight-Character String 
CALL FOR$TIME_T_DS (time-str.wt.ds) 

HANDLER Floating Underflow Exception Handler 

ret-status.wlc.v = FOR$UNDERFLOW_HANDLER (sig-args-adr.ra.v, 
mch-args-adr.ra.v, enb-args-adr.ra.v) 

Free Locked Record on Logical Unit 

iostat.wl.v = FORSUNLOCK (unit.rlu.v [,err-eql.rlu.v]) 
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FOR$WRITE_DF 

FOR$WRITE_DO 

FOR$WRITE_DU 

FOR$WRITE_IF 

FOR$WRITE_IO 

FOR$WRITE_SF 

FOR$WRITE_SL 


Prepare for Formatted Direct Write 

CALL FOR$WRITE_DF (unit.rlu.v, rec-num.rl.v, format-adr.mbu.ra 
[,err-adr.j.r [,end-adr.j.r]]) 

Prepare for Formatted Direct Write 

CALL FOR$WRITE_DO (unit.rlu.v, rec-num.rl.v, ot-format-adr.rt.r 
[,err-adr.j.r [,end-adr.j.r]]) 

Prepare for Unformatted Direct Write 

CALL FOR$WRITE_DU (unit.rlu.v, rec-num.rl.v [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Formatted Internal Write 

CALL FOR$WRITE_IF (user-vbl.rt.dxl, format-adr.mbu.ra [,err-adr.j.r 
[,end-adr.j.rll) 

Prepare for Formatted Internal Write 

CALL FOR$WRITE_IO (user-vbl.rt.dxl, ot-format-adr.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for Formatted Sequential Write 

CALL FOR$WRITE_SF (unit.rlu.v, format-adr.mbu.ra [,err-adr.j.r 
[,end-adr.j.r]]) 

Prepare for List-Directed Sequential Write 

CALL FOR$WRITE_SL (unit.rlu.v [,err-adr.j.r [,end-adr.j.r]]) 


FOR$WRITE_SN Prepare for NAMELIST Controlled Sequential Write 

CALL FOR$WRITE_SN (unit.rlu.v, namelist.rl.r [,err-adr.j.r]) 

FOR$WRITE_SO Prepare for Formatted Sequential Write 

CALL FOR$WRITE_SO (unit.rlu.v, ot-format-adr.rt.r [,err-adr.j.r 
[,end-adr.j.r]]) 

FOR$WRITE_SU Prepare for Unformatted Sequential Write 

CALL FOR$WRITE_SU (unit.rlu.v t,err-adr.j.r [,end-adr.j.r]]) 


General Utility Procedures 


LIBSADDX Add, Multiple Precision Binary 

ret-status.wlc.v = LIBSADDX (a.rl.ra, b.rl.ra, result.wl.ra [Jen.rl.r]) 

LIB$ANALYZE_SDESC Analyze String Descriptors 

ret-status.wlc.v = LIB$ANALYZE_SDESC (inp-dsc.rt.dx, len.ww.r, 
data-adr.wa.r) 

JSB ret-status.wlc.v = LIB$ANALYZE_SDESC_R2 (inp-dsc.rt.dx, len.ww.v, 
data-adr.wa.v) 


LIB$ASN_WTH_MBX Assign Channel with Mailbox 

ret-status.wlc.v = LIB$ASN_WTH_MBX (dev-nam.rt.dx, max-msg.rl.r, 
buf-quo.rl.r, dev-chn.ww.r, mbx-chn.ww.r) 

LIB$AST_IN_PROG AST in Progress 

in-progress.wlu.v = LIB$AST_IN_PROG ( ) 
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LIB$ATTACH 

Attach Terminal to Process 

ret-status.wlc.v = LIB$ATTACH (process-id.rlu.r) 

LIB$CALLG 

Call Procedure with General Argument List 

value.wz.v = LIB$CALLG (arglist.rlu.ra, procedure.fz.rp) 

LIB$CHAR 

Transform Byte to First Character of String 

ret-status.wlc.v = LIBSCFHAR (one-char-str.wt.dx, ascii-code.rbu.r) 

LIB$CRC 

Cyclic Redundancy Check, Calculate 

crc.wlu.v = LIB$CRC (table.rlu.ra,inicrc.rlu.r, stream.rt.dx) 

LIB$CRC_TABLE 

Cyclic Redundancy Check, Construct Table 

CALL LIB$CRC_TABLE (poly.rlu.r, table.wl.ra) 

LIB$CRF_INS_KEY 

Cross-Reference, Place Symbol Value in Table 

CALL LIB$CRF_INS_KEY (ctl-tbl.rl.ra, keyl.rt.dx, vall.rl.r, flags.rl.r) 

LIB$CRF_INS_REF 

Cross-Reference, Place Symbol Name in Table 

CALL LIB$CRF_INS_REF (ctl-tbl.rl.ra, keyl.rl.r, ref2.rt.dx, refl.rl.r, 
ref-def.rl.r) 

LIB$CRF_OUTPUT 

Cross-Reference, Output Table 

CALL LIB$CRF_OUTPUT (ctl-tbl.rl.ra, width.rl.r, pagl .rl.r, pagn.rl.r, 
mode-ind.rl.r, del-sav-ind-rl.r) 

LIB$CURRENCY 

Get Currency Symbol 

ret-status.wlc.v = LIB$CURRENCY (currency-str.wt.dx 
[,out-len.wwu.r]) 

LIB$CVT_DTB 

Convert Text, Decimal to Binary 

ret-status.wlc.v = LIB$CVT_DTB (count.rl.v, string.rt.r, result.wl.r) 

LIB$CVT_DX_DX 

Convert Text, General Data Type 

ret-status.wlc.v = LIB$CVT_DX_DX (src-str.rt.dx, dst-str.wt.dx 
[,dst-len.wwu.r]) 

LIB$CVT_HTB 

Convert Text, FHexadecimal to Binary 

ret-status.wlc.v = LIB$CVT_HTB (count.rl.v, string.rt.r, result.wl.r) 

LIB$CVT_OTB 

Convert Text, Octal to Binary 

ret-status.wlc.v = LIB$CVT_OTB (count.rl.v, string.rt.r, result.wl.r) 

LIB$DATE_TIME 

Date and Time Returned as String 
ret-status.wlc.v = LIB$DATE_TIME (dst-str.wt.dx) 

LIB$DAY 

Day Number Returned as Longword Integer 
ret-status.wlc.v = LIB$DAY (day-number.wl.r [,user-time.rq.r 
[, day-time, wl.r]]) 

LIB$DEC_OVER 

Decimal Overflow Detection, Enable/Disable 
old-setting.wlu.v = LIB$DEC_OVER (new-setting.rbu.r) 

LIB$DECODE_FAULT 

Decode Instruction Stream During Fault 
ret-status.wlc.v = LIB$DECODE_FAULT (signal-args.rlu.ra, 
mechanism-args.rlu.ra, user-action.cx.dp [,user-arg.rz.v 
[,instruction-definitions.rbu.ra]]) 
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LIB$DELETE_LOGICAL 


LIB$DELETE_SYMBOL 

LIB$DIGIT_SEP 

LIB$DISABLE_CTRL 

LIB$DO_COMMAND 

LIB$DOWN_SCROLL 

LIB$EDIV 

LIB$EMODD 

LIBSEMODF 

LIBSEMODG 

LIB$EMODH 

LIBSEMUL 

LIB$EMULATE 

LIB$ENABLE_CTRL 

LIB$ERASE_LINE 

LIB$ERASE_PAGE 


Delete Supervisor-Mode Logical Name 
ret-status.wlc.v = LIB$DELETE_LOGICAL (log-nam.rt.dx) 

Delete CLI Symbol 

ret-status.wlc.v = LIB$DELETE_SYMBOL (symbol.rt.dx [,tbl-ind.rl.r]) 
Get Digit Separator Symbol 

ret-status.wlc.v = LIB$DIGIT_SEP (digit-sep-str.wt.dx 
[,out-len.wwu.rl) 

Disable CLI Interception of Control Characters 
ret-status.wlc.v = LIB$DISABLE_CTRL (disable.msk.rv.r 
[,old-msk.wv.rb 

Execute Command 

ret-status.wlc.v = LIB$DO_COMMAND (cmd-text.rt.dx) 

Down Scroll, Move Cursor up One Line 
ret-status.wlc.v - LIB$DOWN_SCROLL () 

Execute VAX-11 EDIV Instruction 

ret-status.wlc.v = LIB$EDIV (divisor.rl.r, dividend.rq.r, quotient.wl.r, 
remainder.wl.r) 

Extended Multiply and Integerize (D_floating) 
ret-status.wlc.v = LIB$EMODD (multiplier.rd.r, mult-ext.rb.r, 
multiplicand.rd.r, int.wl.r, tract.wd.r) 

Extended Multiply and Integerize (F_floating) 
ret-status.wlc.v = LIB$EMODF (multiplier.rf.r, mult-ext.rb.r, 
multiplicand.rf.r, int.wl.r, tract.wf.r) 

Extended Multiply and Integerize (G_floating) 
ret-status.wlc.v = LIB$EMODG (multiplier.rg.r, mult-ext.rb.r, 
multiplicand.rg.r, int.wl.r, tract.wg.r) 

Extended Multiply and Integerize (H_floating) 
ret-status.wlc.v = LIB$EMODH (multiplier.rh.r, mult-ext.rb.r, 
multiplicand.rh.r, int.wl.r, tract.wh.r) 

Execute VAX-11 EMUL Instruction 

ret-status.wlc.v = LIBSEMUL (multiplicand.rl.r, multiplier.rl.r, 
addend.rl.r, product.wq.r) 

Emulate VAX-11 Instructions 

ret-status.wlc.v = LIB$EMULATE (sig-args.ma.r, mech-args.ma.r) 

Enable CLI Interception of Control Characters 
ret-status.wlc.v = LIB$ENABLE_CTRLY (enable.msk.rv.r 
[,old-msk.wv.r]) 

Erase Line from Screen 

ret-status.wlc.v = LIB$ERASE_LINE ([line-no.rw.r, col-no.rw.r]) 

Erase Page from Screen 

ret-status.wlc.v = LIB$ERASE_PAGE ([line-no.rw.r, col-no.rw.r]) 
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LIB$ESTABLISH 

Establish Condition Handler for FORTRAN 
old-handler.flc.rp — LIB$ESTABLISH (new-handier.flc.rp) 

LIB$EXTV 

Extract and Sign-Extend Field 

field.wlu.v = LIB$EXTV (pos.rl.r, size.rbu.r, base.ra.v) 

LIBSEXTZV 

Extract Zero-Extended Field 

field.wlu.v = LIB$EXTZV (pos.rl.r, size.rbu.r, base.ra.v) 

LIB$FFC 

Find First Clear Bit 

ret-status.wlc.v = LIB$FFC (start-pos.rl.r, size.rbu.r, base.ra.r, 
find-pos.wl.r) 

LIBSFFS 

Find First Set Bit 

ret-status.wlc.v = LIBSFFS (start-pos.rl.r, size.rbu.r, base.ra.r, 
find-pos.wl.r) 

FIB$FILE_SCAN 

File Scan 

ret-status.wlc.v = LIB$FILE_SCAN (fab.ra.r, success-rtn.flc.rp, 
error-rtn. flc.rp) 

LIB$FIND_FILE 

Find File 

ret-status.wlc.v = LIB$FIND_FILE (file-name.rt.dx, result-name.mt 
context.ma.r [,default-name.rt.dx [,related-name.rt.dx]]) 

FIB$FIXUP_FLT 

Fix Up Floating Reserved Operand 

ret-status.wlc.v = LIB$FIXUP_FLT (sig-args.rl.ra, mch-args.rl.ra 
[,new-operand.rf.rl) 

LIB$FLT_UNDER 

Floating Underflow Detection, Enable/Disable 
old-setting.wlu.v = LIB$FLT_UNDER (new-setting.rbu.r) 

FIB$FREE_EF 

Free One Event Flag 

ret-status.wlc.v = LIB$FREE_EF (event-flag-num.rl.r) 

LIB$FREE_LUN 

Free One Logical Unit Number 

ret-status.wlc.v = LIB$FREE_LUN (log-unit-num.rl.r) 

FIB$FREE_TIMER 

Free Timer Storage 

ret-status.wlc.v = LIB$FREE_TIMER (handle-adr.ml.r) 

LIB$FREE_VM 

Free Virtual Memory from Program Region 

ret-status.wlc.v = LIB$FREE_VM (num-bytes.rlu.r, base-adr.ra.r) 

FIB$GET_COMMAND 

Get Command Line from SYS$COMMAND 
ret-status.wlc.v = LIB$GET_COMMAND (get-str.wt.dx 
[,prompt-str.rt.dx [,out-len.wwu.r]]) 

FIB$GET_COMMON 

Get String from Common 

ret-status.wlc.v = LIB$GET_COMMON (dst-str.wt.dx 
[,chars-copied.ww.r]) 

LIB$GET_EF 

Get One Event Flag 

ret-status.wlc.v = LIB$GET_EF (event-flag-num.wl.r) 
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LIB$GET_FOREIGN 

LIB$GET_INPUT 

LIB$GET_LUN 

LIB$GET_SCREEN 

LIB$GET_SYMBOL 

LIB$GET_VM 

LIBSICHAR 

LIBSINDEX 

LIB$INIT_TIMER 

LIB$INSERT_TREE 

LIBSINSQHI 

LIB$INSQTI 

LIB$INSV 

LIB$INT_OVER 

LIBSLEN 

LIBSLOCC 


Get Foreign Command Line 

ret-status.wlc.v = LIB$GET_FOREIGN (get-str.wt.dx 
[, [user-prompt.rt.dx] [, [out-len.ww.r] [, force-prompt.ml.r]]]) 

Get Command Line from SYS$INPUT 

ret-status.wlc.v = LIB$GET_INPUT (get-str.wt.dx [,prompt-str.rt.dx 
[,out-len.wwu.rll) 

Get One Logical Unit Number 

ret-status.wlc.v = LIB$GET_LUN (log-unit-num.wl.r) 

Get Text from Screen 

ret-status.wlc.v = LIB$GET_SCREEN (input-text.wt.dx 
[, prom pt-str. rt.dx [,out-len.wwu.r]]) 

Get Value of CLI Symbol 

ret-status.wlc.v = LIB$GET_SYMBOL (symbol.rt.dx, ret-buf.wt.dx, 
[,ret-len.ww.r [,tbl-ind.wl.r]]) 

Get Virtual Memory in Program Region 

ret-status.wlc.v = LIB$GET_VM (num-bytes.rlu.r, base-adr.wa.r) 

Transform First Character of String to Longword Value 
first-char-value.wlu.v = LIB$ICHAR (src-str.rt.dx) 

Return Relative Position of Substring 

index.wlu.v = LIB$INDEX (src-str.rt.dx, sub-str.rt.dx) 

Initialize Times and Counts 

ret-status.wlc.v = LIB$INIT_TIMER ([handle-adr.ml.r]) 

Insert Entry in Balanced Binary Tree 

ret-status.wlc.v = LIB$INSERT_TREE (treehead.ra.r, sym-str.rt.dx, 
ctrl-flg.rl.r, compare-rtn.fzem.rp, alloc-rtn.fzem.rp, newhead.wa.r 
[,user-data.ra.r]) 

Insert Entry at Head of Queue 

ret-status.wlc.v = LIB$INSQHI (entry.mq.ra, header.mq.r 
[,retry-cnt.rl.r]) 

Insert Entry at Tail of Queue 

ret-status.wlc.v = LIB$INSQTI (entry.mq.ra, header.mq.r 
[,retry-cnt.rl.r]) 

Insert Variable Bit Field 

CALL LIB$INSV (src.rl.r, pos.rl.r, size.rbu.r, base.wv.r) 

Integer Overflow Detection, Enable/Disable 
old-setting.wlu.v = LIB$INT_OVER (new-setting.rbu.r) 

Return Length of String as Longword Value 
str-len.wlu.v = LIB$LEN (src-str.rt.dx) 

Locate Character 

index.wlu.v = LIBSLOCC (char-str.rt.dx, src-str.rt.dx) 
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LIB$LOOKUP_KEY 


LIB$LOOKUP_TREE 

LIB$LP_LINES 

LIBSMATCHC 

LIB$MATCH_COND 

LIBSMOVC3 

LIB$MOVC5 

LIB$MOVTC 

LIB$MOVTUC 

LIBSPOLYD 

LIBSPOLYF 

LIBSPOLYG 

LIBSPOLYH 

LIB$PUT_BUFFER 

LIB$PUT_COMMON 


Look Up Keyword in Table 

ret-status.wlc.v = LIB$LOOKUP_KEY (search-str.rt.dx, key-table.rlu.ra 
[,key-value.wlu.r [,full-str.wt.dx [,out-len.ww.r]]]) 

Lookup Entry in Balanced Binary Tree 

ret-status.wlc.v = LIB$LOOKUP_TREE (treehead.ra.r, sym-str.rt.dx, 
compare-rtn.fzem.rp, newhead.wa.r) 

Get Lines on Line-Printer Page 
page-len.wl.v = LIB$LP_LINES ( ) 

Match Characters 

index.wlu.v = LIBSMATCHC (sub-str.rt.dx, src-str.rt.dx) 

Match Condition Value 

index.wlu.v = LIB$MATCH_COND (cond-val.rlc.r, cond-val-i.rlc.r, ...) 
Move Characters 

CALL LIBSMOVC3 (length.rwu.r, source.rz.r, dest.wz.r) 

Move Characters with Fill 

CALL LIB$MOVC5 (src-len.rwu.r, source.rz.r, fill.rb.r, dst-len.rwu.r, 
dest.wz.r) 

Move Translated Characters 

ret-status.wlc.v = LIB$MOVTC (src-str.rt.dx, fill-char.rt.dx, 
trans-tbl.rt.dx, dst-str.wt.dx) 

Move Translated until Character 

stop-index.wlu.v = LIB$MOVTUC (src-str.rt.dx, stop-char.rt.dx, 
trans-tbl.rt.dx, dst-str.wt.dx [,fill-char.rt.dx]) 

Polynomial Evaluation (D_floating) 

ret-status.wlc.v = LIBSPOLYD (arg.rd.r, degree.rw.r, coeff.rd.ra, 
result.wd.r) 

Polynomial Evaluation (F_floating) 

ret-status.wlc.v = LIBSPOLYF (arg.rf.r, degree.rw.r, coeff.rf.ra, 
result.wf.r) 

Polynomial Evaluation (G_floating) 

ret-status.wlc.v = LIBSPOLYG (arg.rg.r, degree.rw.r, coeff.rg.ra, 
result.wg.r) 

Polynomial Evaluation (H_floating) 

ret-status.wlc.v = LIBSPOLYH (arg.rh.r, degree.rw.r, coeff.rh.ra, 
result.wh.r) 

Put Current Buffer to Screen or to Previous Buffer 
ret-status.wlc.v = LIB$PUT_BUFFER ([old-buffer.rl.r]) 

Put String to Common 

ret-status.wlc.v = LIB$PUT_COMMON (src-str.rt.dx 
[,chars-copied.ww.r]) 
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LIB$PUT_LINE 

LIB$PUT_OUTPUT 

LIB$PUT_SCREEN 

LI B$ RADIX-POINT 

LIBSREMQHI 

LIBSREMQTI 

LIB$RESERVE_EF 

LIB$REVERT 

LIB$RUN_PROGRAM 

LIB$SCANC 

LIB$SCOPY_DXDX 

JSB 

LIB$SCOPY_R_DX 

JSB 

LIB$SCREEN_INFO 

LIB$SET_BUFFER 

LIB$SET_CURSOR 


Put Text to Screen in Line Mode 

ret-status.wlc.v = LIB$PUT_LINE (text.rt.dx [,line-adv.rw.r] 

[,flags, rw.r]) 

Put Line to SYSSOUTPUT 

ret-status.wlc.v = LIB$PUT_OUTPUT (msg-str.rt.dx) 

Put Text to Screen 

ret-status.wlc.v = LIB$PUT_SCREEN (text.rt.dx [,line-no.rw.r, 
col-no.rw.r] [,flags.rw.r]) 

Get Radix Point Symbol 

ret-status.wlc.v = LIB$RADIX_POINT (radix-point-str.wt.dx 
[,out-len.wwu.r]) 

Remove Entry from Head of Queue 

ret-status.wlc.v = LIBSREMQHI (header.mq.r, remque-adr.wl.r 
[,retry-cnt.rlu.r]) 

Remove Entry from Tail of Queue 

ret-status.wlc.v = LIBSREMQTI (header.mq.r, remque-adr.wl.r 
[,retry-cnt.rlu.r]) 

Reserve One Event Flag 

ret-status.wlc.v = LIB$RESERVE_EF (event-flag-num.rl.r) 

Revert to Previous Condition Handler 
old-handler.wa.v = LIBSREVERT () 

Run Program 

ret-status.wlc.v = LIB$RUN_PROGRAM (pgm-name.rt.dx) 

Scan Characters 

index.wlu.v = LIBSSCANC (src-str.rt.dx, table-arr.rbu.ra, mask.rbu.r) 

String Copy, Any Class String, Passed by Descriptor 
ret-status.wlc.v = LIB$SCOPY_DXDX (src-str.rt.dx, dst-str.wt.dx) 
ret-status.wlc.v = LIB$SCOPY_DXDX6 (src-str.rt.dx, dst-str.wt.dx) 

String Copy, Any Class String, Passed by Reference 
ret-status.wlc.v = LIB$SCOPY_R_DX (src-len.rwu.r, src-adr.rt.r, 
dst-str.wt.dx) 

ret-status.wlc.v = LIB$SCOPY_R_DX6 (src-len.rwu.v, src-adr.rt.v, 
dst-str.wt.dx) 

Screen Information Retrieval 

ret-status.wlc.v = LIB$SCREEN_INFO (flags.wl.r [,dev-type.wb.r 
[,line-width.ww.r [,lines-per-page.ww.r]]]) 

Set or Clear Screen Buffer Mode 

ret-status.wlc.v = LIB$SET_BUFFER (buffer.mt.ds [,old-buffer.wl.r]) 

Set Cursor to Character Position on Screen 

ret-status.wlc.v = LIB$SET_CURSOR (line-no.rw.r, col-no.rw.r) 
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LIB$SET_LOGICAL 

LIB$SET_OUTPUT 

LIB$SET_SCROLL 

LIB$SET_SYMBOL 

LIB$SFREE1_DD 

JSB 

LIB$SFREEN_DD 

JSB 

LIB$SGET1_DD 

JSB 

LIB$SHOW_TIMER 

LIB$SHOW_VM 

LIBSSIGNAL 

LIB$SIG_TO_RET 

LIB$SIM_TRAP 

LIBSSKPC 

LIBSSPANC 

LIBSSPAWN 


Set Supervisor-Mode Logical Name 

ret-status.wlc.v = LIB$SET_LOGICAL (log-name.rt.dx, value.rt.dx) 

Set Terminal or Screen Buffer for Output 

ret-status.wlc.v = LIB$SET_OUTPUT (chan.rw.r [,file-spec.rt.dx 
[,user-routine.zem.rp [,user-arg.rl.r [,stream.wl.r]]]] 

Set Scrolling Region 

ret-status.wlc.v = LIB$SET_SCROLL (start-line.rw.r, end-line.rw.r) 

Set value of CLI Symbol 

ret-status.wlc.v = LIB$SET_SYMBOL (symbol.rt.dx, value.rt.dx 
[,tbl-ind.rl.r]) 

String, Free One Dynamic 

ret-status.wlc.v = LIB$SFREE1_DD (dsc-adr.mqu.r) 
ret-status.wlc.v = LIB$SFREE1_DD6 (dsc-adr.mqu.v) 

Strings, Free n Dynamic 

ret-status.wlc.v = LIB$SFREEN_DD (dsc-num.rlu.r, first-dsc.mqu.r) 
ret-status.wlc.v = LIB$SFREEN_DD6 (dsc-num.rlu.v, first-dsc.mqu.v) 

String, Get One Dynamic 

ret-status.wlc.v = LIB$SGET1_DD (len.rwu.r, str.mqu.r) 
ret-status.wlc.v = LIB$SGET1_DD_R6 (len.rwu.v, str.mqu.v) 

Show Accumulated Times and Counts 

ret-status.wlc.v = LIB$SHOW_TIMER ([-handle-adr.rl.r] [, [code.rl.r] 
[, [action-rtn.flc.rpl [, [user-arg.rl.v]]]]) 

Show Virtual Memory Statistics 

ret-status.wlc.v = LIB$SHOW_VM ([code.rl.r [,action-rtn.flc.rp 
[,user-arg.xy.z]]]) 

Signal Exception Condition 

CALL LIBSSIGNAL (condition-value.rlc.v [, parameters.rl.v, ...]) 
Convert Signal to Return Status 

ret-status.wlc.v = LIB$SIG_TO_RET (sig-args.rl.ra, mch-args.rl.ra) 
Simulate Floating Trap 

ret-status.wlc.v = LIB$SIM_TRAP (sig-args.ma.r, mch-args.ma.r) 

Skip Character 

index.wlu.v = LIBSSKPC (char-str.rt.dx, src-str.rt.dx) 

Span Characters 

index.wlu.v = LIBSSPANC (src-str.rt.dx, table-arr.rbu.ra, mask.rbu.r) 
Spawn Command Subprocess 

ret-status.wlc.v = LIBSSPAWN ([command-string.rt.dx] [, 

[input-file.rt.dx] [, [output-file.rt.dx] [, [flags.rlu.r] 

[, [process-name.rt.dx] [, [process-id.wlu.r] 

[, [completion-status.wlc.r] [, [completion-efn.rbu.r] 

[, [completion-astadr.szem.r] [, [completion-astprm.rz.v] ]]]]]]]]]) 
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LIB$STAT_TIMER 

LIB$STAT_VM 

LIB$STOP 

LIB$STOP_OUTPUT 

LIBSSUBX 

LIB$SYS_ASCTIM 

LIB$SYS_FAO 

LIB$SYS_FAOL 

LIB$SYS_GETMSG 

LIB$SYS_TRNLOG 

LIBSTPARSE 

LIB$TRAVERSE_TREE 

LIB$TRA_ASC_EBC 

LIBSTRA^EBC^ASC 

LIB$UP_SCROLL 


Return Accumulated Times and Counts Statistics 
ret-status.wlc.v = LIB$STAT_TIMER (code.rl.r, value.wx.r 
[,handle-adr.rl.r]) 

Fetch Virtual Memory Statistics 

ret-status.wlc.v = LIB$STAT_VM (code.rl.r, value.wl.r) 

Stop Execution via Signaling 

CALL LIBSSTOP (condition-value.rlc.v [, parameters.rl.v, ...]) 

Stop Output to Terminal or Screen Buffer 
ret-status.wlc.v = LIB$STOP_OUTPUT (chan.rw.r) 

Subtract, Multiple Precision Binary 

ret-status.wlc.v = LIBSSUBX (a.rl.ra, b.rl.ra, result.wl.ra [Jen.rl.r]) 

System Service, Convert Binary Date/Time to ASCII String 
ret-status.wlc.v = LIB$SYS_ASCTIM (out-len.ww.r, dst-str.wt.dx, 
[,user-time.rq.r [,cnv-flg.rlu.r]]) 

System Service, Format ASCII Output 

ret-status.wlc = LIB$SYS_FAO (ctr-str.rt.dx, [out-len.ww.r], 
out-buf.wt.dx [,p1.xy.z ... [,pn.xy.z]]) 


System Service, Format ASCII Output with List Parameter 
ret-status.wlc = LIB$SYS_FAOL (ctr-str.rt.dx, [out-len.ww.r], 
out-buf.wt.dx, prm-lst.ra.r) 

System Service, Get System Message 

ret-status.wlc.v = LIB$SYS_GETMSG (msg-id.rl.r, [msg-len.ww.r], 
dst-str.wt.dx [,flags.rl.r [,out-arr.wa.ra]]) 

System Service, Translate Logical Name 
ret-status.wlc.v = LIB$SYS_TRNLOG (logical-name.rt.dx 
[,dst-len.ww.r], dst-str.wt.dx [,table.wb.r] [,acc-mode.wb.r] 
[,dsb-msk.rbu.r]) 

Table Driven Finite State Parser 

ret-status.wlc.v = LIBSTPARSE (param-blk.mz.r,state-tbl.rz.r, 
key-tbl.rz.r 

Traverse Binary Tree 

ret-status.wlc.v = LIB$TRAVERSE_TREE (treehead.ra.r, 
action-rtn.fzemlc.rp [,user-data.rl.r]) 

Translate ASCII to EBCDIC 

ret-status.wlc.v = LIB$TRA_ASC_EBC (src-str.rt.dx, dst-str.wbu.dx) 
Translate EBCDIC to ASCII 

ret-status.wlc.v = LIB$TRA_EBC^\SC (src-str.rbu.dx, dst-str.wt.dx) 

Up Scroll, Move Cursor Down One Line 
ret-status.wlc.v = LIB$UP_SCROLL () 
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Mathematics Procedures 


MTH$ABS 


F_floating Absolute Value 

f-absolute-value.wf.v = MTH$ABS (f-floating.rf.r) 

MTHSACOS 

JSB 

Arc Cosine (F_floating) 

radians.wf.v = MTHSACOS (x.rf.r) 

radians.wf.v = MTH$ACOS_R4 (x.rf.v) 

MTH$ACOSD 

JSB 

Arc Cosine (F_floating) 

degrees.wf.v = MTH$ACOSD (x.rf.r) 

degrees.wf.v = MTH$ACOSD_R4 (x.rf.v) 

MTH$AIMAG 


Imaginary Part of F_complex Number 
imag-part.wf.v = MTHSAIMAG (complex-number.rfc.r) 

MTHSAIMAXO 


F_floating Maximum of n Word Parameters 
f-floating-max.wf.v = MTHSAIMAXO (word.rw.r, ...) 

MTHSAIMINO 


F_floating Minimum of n Word Parameters 
f-floating-min.wf.v = MTHSAIMINO (word.rw.r, ...) 

MTHSAINT 

JSB 

Convert F_floating to Truncated F_floating 
truncated-f-floating.wf.v = MTHSAINT (f-floating.rf.r) 
truncated-f-floating.wf.v = MTH$AINT_R2 (f-floating.rf.v) 

MTHSAJMAXO 


F_floating Maximum of n Longword Parameters 
f-floating-max.wf.v = MTHSAJMAXO (longword.rl.r, ...) 

MTH$AJMINO 


F_floating Minimum of n Longword Parameters 
f-floating-min.wf.v = MTHSAJMINO (longword.rl.r, ...) 

MTH$ALOG 

JSB 

Natural Logarithm (F_floating) 
natlog.wf.v = MTHSALOG (x.rf.r) 
natlog.wf.v = MTH$ALOG_R5 (x.rf.v) 

MTHSALOGIO 

JSB 

Common Logarithm (F_floating) 
loglO.wf.v = MTHSALOGIO (x.rf.r) 
loglO.wf.v = MTH$ALOG10_R5 (x.rf.v) 

MTHSALOG2 


Base Two Logarithm (F_floating) 
log2.wf.v = MTHSALOG2 (x.rf.r) 

MTHSAMAX1 


F_floating Maximum of n F_floating Parameters 
f-floating-max.wf.v = MTHSAMAX1 (f-floating.rf.r, ...) 

MTHSAMIN1 


F_floating Minimum of n F_floating Parameters 
f-floating-min.wf.v = MTHSAMIN1 (f-floating.rf.r, ...) 

MTHSAMOD 


Remainder of Two F_floating Parameters, arg1/arg2 
f-floating.wf.v = MTHSAMOD (f-floatingl .rf.r, f-floating2.rf.r) 

MTH$ANINT 


Convert F_floating to Nearest F_floating Integer 
nearest-f-float-int.wf.v = MTHSANINT (f-floating.rf.r) 
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MTHSASIN 

JSB 

Arc Sine (F_floating) 

radians.wf.v = MTHSASIN (x.rf.r) 

radians.wf.v = MTH$ASIN_R4 (x.rf.v) 

MTH$ASIND 

JSB 

Arc Sine (F_floating) 

degrees.wf.v = MTHSASIND (x.rf.r) 

degrees.wf.v = MTH$ASIND_R4 (x.rf.v) 

MTH$ATAN 

JSB 

Arc Tangent (F_floating) 

radians.wf.v = MTHSATAN (x.rf.r) 

radians.wf.v = MTH$ATAN_R4 (x.rf.v) 

MTHSATAN2 


Arc Tangent - Two Parameters (F_floating) 
radians.wf.v = MTHSATAN2 (y.rf.r, x.rf.r) 

MTHSATAN2D 


Arc Tangent - Two Parameters (F_floating) 
degrees.wf.v = MTHSATAN2D (y.rf.r, x.rf.r) 

MTH SATAN D 

JSB 

Arc Tangent (F_floating) 

degrees.wf.v = MTHSATAND (x.rf.r) 

degrees.wf.v = MTH$ATAND_R4 (x.rf.v) 

MTHSATANH 


Hyperbolic Arc Tangent (F_floating) 
atanh.wf.v = MTHSATANH (x.rf.r) 

MTHSCABS 


Absolute Value (F_floating) 

absolute-value.wf.v = MTHSCABS (complex-number.rfc.r) 

MTHSCCOS 


Cosine (F_complex) 

complex-cosine.wfc.v = MTHSCCOS (complex-number.rfc.r) 

MTHSCDABS 


Absolute Value (D_floating) 

CALL MTHSCDABS (absolute-value.wd.r, complex-number.rdc.r) 

MTHSCDCOS 


Cosine (D_complex) 

CALL MTHSCDCOS (complex-cosine.wdc.r, complex-number.rdc.r) 

MTHSCDEXP 


Exponentiation (D_complex) 

CALL MTHSCDEXP (complex-exp.wdc.r, x.rdc.r) 

MTHSCDLOG 


Natural Logarithm (D_complex) 

CALL MTHSCDLOG (complex-natlog.wdc.r, arg.rdc.r) 

MTHSCDSIN 


Sine (D_complex) 

CALL MTHSCDSIN (complex-sine.wdc.r, complex-number.rdc.r) 

MTHSCDSQRT 


Square Root (D_complex) 

CALL MTHSCDSQRT (complex-sqrt.wdc.r, x.rdc.r) 

MTHSCEXP 


Exponentiation (F_complex) 
complex-exp.wfc.v = MTHSCEXP (x.rfc.r) 

MTHSCGABS 


Absolute Value (G_floating) 

CALL MTHSCGABS (absolute-value.wg.r, complex-number.rgc.r) 
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MTHSCGCOS 

Cosine (G_complex) 

CALL MTH$CGCOS (complex-cosine.wgc.r, complex-number.rgc.r) 

MTH$CGEXP 

Exponentiation (G_complex) 

CALL MTHSCGEXP (complex-exp.wgc.r, x.rgc.r) 

MTH$CGLOG 

Natural Logarithm (G_complex) 

CALL MTHSCGLOG (complex-natlog.wgc.r, arg.rgc.r) 

MTHSCGSIN 

Sine (G_complex) 

CALL MTHSCGSIN (complex-sine.wgc.r, complex-number.rgc.r) 

MTHSCGSQRT 

Square Root (G_complex) 

CALL MTHSCGSQRT (complex-sqrt.wgc.r, x.rgc.r) 

MTHSCLOG 

Natural Logarithm (F_complex) 
complex-natlog.wfc.v = MTHSCLOG (arg.rfc.r) 

MTH$CMPLX 

Make F_complex from F_floating 

cmplx.wfc.v = MTHSCMPLX (real-part.rf.r, imag-part.rf.r) 

MTH$CON)G 

Conjugate of F_complex Number 

complex-conjugate.wfc.v = MTHSCONJG (complex-number.rfc.r) 

MTHSCOS 

Cosine (F_tloating) 

cosine.wf.v = MTHSCOS (r.rf.r) 

JSB 

cosine.wf.v = MTH$COS_R4 (r.rf.v) 

MTHSCOSD 

Cosine (F_floating) 

cosine.wf.v = MTHSCOSD (d.rf.r) 

) SB 

cosine.wf.v = MTH$COSD_R4 (d.rf.v) 

MTH$COSH 

Hyperbolic Cosine (F_floating) 
cosh.wf.v = MTHSCOSH (x.rf.r) 

MTHSCSIN 

Sine (F_complex) 

complex-sine.wfc.v = MTHSCSIN (complex-number.rfc.r) 

MTHSCSQRT 

Square Root (F_complex) 
complex-sqrt.wfc.v = MTHSCSQRT (x.rfc.r) 

MTH$CVT_D_G 

Convert D_floating to G_floating (Rounded) 
g-floating.wg.v = MTH$CVT_D_G (d-floating.rd.r) 

MTH$CVT_DA_GA 

Convert D_floating Array to G_floating Array (Rounded) 

CALL MTH$CVT_DA_GA (d-flt-array.rd.ra, g-flt-array.wg.ra bcnt.rl.vj) 

MTH$CVT_G_D 

Convert G_floating to D_floating (Exact) 
d-floating.wd.v = MTH$CVT_G_D (g-floating.rg.r) 

MTH$CVT_GA_DA 

Convert G_floating Array to D_floating Array (Exact) 

CALL MTH$CVT_GA_DA (g-flt-array.rg.ra, d-flt-array.wd.ra |,cnt.rl.v|) 

MTH$DABS 

D_floating Absolute Value 

d-absolute-value.wd.v = MTHSDABS (d-floating.rd.r) 


40 Summary of Run-Time Library Entry Points 



MTHSDACOS 

JSB 

Arc Cosine (D_floating) 

radians.wd.v = MTHSDACOS (x.rd.r) 

radians.wd.v = MTH$DACOS_R7 (x.rd.v) 

MTHSDACOSD 

JSB 

Arc Cosine (D_floating) 

degrees.wd.v = MTHSDACOSD (x.rd.r) 

degrees.wd.v = MTH$DACOSD_R7 (x.rd.v) 

MTH$DASIN 

JSB 

Arc Sine (D_floating) 

radians.wd.v = MTHSDASIN (x.rd.r) 

radians.wd.v = MTH$DASIN_R7 (x.rd.v) 

MTH$DASIND 

JSB 

Arc Sine (D_floating) 

degrees.wd.v = MTHSDASIND (x.rd.r) 

degrees.wd.v = MTH$DASIND_R7 (x.rd.v) 

MTHSDATAN 

JSB 

Arc Tangent (D_floating) 

radians.wd.v = MTHSDATAN (x.rd.r) 

radians.wd.v — MTH$DATAN_R7 (x.rd.v) 

MTH$DATAN2 


Arc Tangent - Two Parameters (D_floating) 
radians.wd.v = MTHSDATAN2 (y.rd.r, x.rd.r) 

MTH$DATAN2D 


Arc Tangent - Two Parameters (D_floating) 
degrees.wd.v = MTHSDATAN2D (y.rd.r, x.rd.r) 

MTHSDATAND 

JSB 

Arc Tangent (D_floating) 

degrees.wd.v = MTHSDATAND (x.rd.r) 

degrees.wd.v = MTH$DATAND_R7 (x.rd.v) 

MTHSDATANH 


Hyperbolic Arc Tangent (D_floating) 
atanh.wd.v = MTHSDATANH (x.rd.r) 

MTHSDBLE 


Convert F_floating to D_floating (Exact) 
d-floating.wd.v = MTHSDBLE (f-floating.rf.r) 

MTHSDCMPLX 


Make D_complex from D_floating 

CALL MTHSDCMPLX (complex.wdc.r, real-part.rd.r, imag-part.rd.r) 

MTHSDCONJG 


Conjugate of D_complex Number 

CALL MTH$DCON)G (complex-conjugate.wdc.r, 
com plex-n umber, rdc.r) 

MTHSDCOS 

JSB 

Cosine (D_floating) 

cosine.wd.v = MTHSDCOS (r.rd.r) 

cosine.wd.v = MTH$DCOS_R7 (r.rd.v) 

MTHSDCOSD 

JSB 

Cosine (D_floating) 

cosine.wd.v = MTHSDCOSD (d.rd.r) 

cosine.wd.v = MTH$DCOSD_R7 (d.rd.v) 

MTHSDCOSH 


Hyperbolic Cosine (D_floating) 
cosh.wd.v = MTHSDCOSH (x.rd.r) 
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MTH$DDIM 


Positive Difference of Two D_floating Parameters 
d-floating.wd.v = MTHSDDIM (d-floatingl .rd.r, d-floating2.rd.r) 

MTH$DEXP 

JSB 

Exponential (D_floating) 
exp.wd.v = MTH$DEXP (x.rd.r) 
exp.wd.v = MTH$DEXP_R6 (x.rd.v) 

MTH$DFLOOR 

JSB 

Convert D_floating to Greatest D_floating Integer 
greatest-d-float-int.wd.v = MTH$DFLOOR (d-floating.rd.r) 
greatest-d-float-int.wd.v = MTH$DFLOOR_R3 (d-floating.rd.v) 

MTHSDFLOTI 


Convert Word to D_floating (Exact) 
d-floating.wd.v = MTHSDFLOTI (word.rw.r) 

MTH$DFFOT) 


Convert Longword to D_floating (Exact) 
d-floating.wd.v = MTH$DFLOTJ (longword.rl.r) 

MTH$DIM 


Positive Difference of Two F_floating Parameters 
f-floating.wf.v = MTHSDIM (f-floatingl .rf.r, f-floating2.rf.r) 

MTHSDIMAG 


Imaginary Part of D_complex Number 

imag-part.wd.v = MTHSDIMAG (complex-number.rdc.r) 

MTH$DINT 

JSB 

Convert D_floating to Truncated D_floating 
truncated-d-floating.wd.v = MTHSDINT (d-floating.rd.r) 
truncated-d-floating.wd.v = MTH$DINT_R4 (d-floating.rd.v) 

MTH$DFOG 

JSB 

Natural Logarithm (D_floating) 
log.wd.v = MTHSDLOG (x.rd.r) 
log.wd.v - MTH$DLOG_R8 (x.rd.v) 

MTH$DLOG10 

JSB 

Common Logarithm (D_floating) 
loglO.wd.v - MTHSDLOGIO (x.rd.r) 
loglO.wd.v = MTH$DLOG10_R8 (x.rd.v) 

MTH$DLOG2 


Base Two Logarithm (D_floating) 
log2.wd.v = MTHSDLOG2 (x.rd.r) 

MTHSDMAX1 


D_floating Maximum of n D_floating Parameters 
d-floating-max.wd.v = MTHSDMAX1 (d-floating.rd.r, ...) 

MTHSDMIN1 


D_floating Minimum of n D_floating Parameters 
d-floating-min.wd.v = MTHSDMIN1 (d-floating.rd.r, ...) 

MTH$DMOD 


Remainder of Two D_floating Parameters, arg1/arg2 
d-floating.wd.v = MTHSDMOD (d-floatingl .rd.r, d-floating2.rd.r) 

MTH$DNINT 


Convert D_floating to Nearest D_floating Integer 
nearest-d-float-int.wd.v = MTHSDNINT (d-floating.rd.r) 

MTHSDPROD 


D_floating Product of Two F_floating Parameters 
d-floating.wd.v = MTHSDPROD (f-floatingl .rf.r, f-floating2.rf.r) 

MTH$DREAF 


Real Part of D_complex Number 

real-part.wd.v = MTHSDREAL (complex-number.rdc.r) 
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MTHSDSIGN 

MTH$DSIN 

MTHSDSINCOS 

MTH$DSINCOSD 

MTH$DSIND 

MTH$DSINH 

MTH$DSQRT 

MTHSDTAN 

MTH$DTAND 

MTHSDTAN H 
MTHSEXP 

MTHSFLOATI 

MTHSFLOAT) 

MTHSFFOOR 

MTHSGABS 


D_floating Transfer of Sign of y to Sign of x 

d-floating.wd.v = MTHSDSIGN (d-floating-x.rd.r, d-floating-y.rd.r) 

Sine (D_floating) 

sine.wd.v = MTHSDSIN (r.rd.r) 

JSB sine.wd.v = MTH$DSIN_R7 (r.rd.v) 

Sine and Cosine (D_floating) 

CAFF MTHSDSINCOS (r.rd.r, sine.wd.r, cosine.wd.r) 

JSB MTH$DSINCOS_R7 (r.rd.v, sine.wd.v, cosine.wd.v) 

Sine and Cosine (D_floating) 

CAFF MTHSDSINCOSD (d.rd.r, sine.wd.r, cosine.wd.r) 

JSB MTH$DSINCOSD_R7 (d.rd.v, sine.wd.v, cosine.wd.v) 

Sine (D_floating) 

sine.wd.v = MTHSDSIND (d.rd.r) 

JSB sine.wd.v = MTH$DSIND_R7 (d.rd.v) 

Hyperbolic Sine (D_floating) 
sinh.wd.v = MTHSDSINH (x.rd.r) 

Square Root (D_floating) 
sqrt.wd.v = MTHSDSQRT (x.rd.r) 

JSB sqrt.wd.v = MTH$DSQRT_R5 (x.rd.v) 

Tangent (D_floating) 

tangent.wd.v = MTHSDTAN (r.rd.r) 

JSB tangent.wd.v = MTH$DTAN_R7 (r.rd.v) 

Tangent (D_floating) 

tangent.wd.v = MTHSDTAND (d.rd.r) 

JSB tangent.wd.v = MTH$DTAND_R7 (d.rd.v) 

Hyperbolic Tangent (D_floating) 
tanh.wd.v = MTHSDTANH (x.rd.r) 

Exponential (F_floating) 
exp.wf.v = MTHSEXP (x.rf.r) 

JSB exp.wf.v = MTH$EXP_R4(x.rf.v) 

Convert Word to F_floating (Exact) 
f-floating.wf.v = MTHSFLOATI (word.rw.r) 

Convert Longword to F_floating (Exact) 
f-floating.wf.v = MTHSFLOATJ (longword.rl.r) 

Convert F_floating to Greatest F_floating Integer 
greatest-f-float-int.wf.v = MTHSFFOOR (f-floating.rf.r) 

JSB greatest-f-float-int.wf.v = MTH$FLOOR_R1 (f-floating.rf.v) 

G_floating Absolute Value 

g-absolute-value.wg.v = MTHSGABS (g-floating.rg.r) 
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MTHSGACOS 

JSB 

Arc Cosine (G_floating) 

radians.wg.v = MTH$GACOS (x.rg.r) 

radians.wg.v = MTH$GACOS_R7 (x.rg.v) 

MTH$GACOSD 

JSB 

Arc Cosine (G_floating) 

degrees.wg.v = MTH$GACOSD (x.rg.r) 

degrees.wg.v = MTH$GACOSD_R7 (x.rg.v) 

MTH$GASIN 

JSB 

Arc Sine (G_floating) 

radians.wg.v = MTH$GASIN (x.rg.r) 

radians.wg.v = MTH$GASIN_R7 (x.rg.v) 

MTH$GASIND 

JSB 

Arc Sine (G_floating) 

degrees.wg.v = MTH$GASIND (x.rg.r) 

degrees.wg.v = MTH$GASIND_R7 (x.rg.v) 

MTH$GATAN 

JSB 

Arc Tangent (G_floating) 

radians.wg.v = MTH$GATAN (x.rg.r) 

radians.wg.v = MTH$GATAN_R7 (x.rg.v) 

MTHSGATAN2 


Arc Tangent - Two Parameters (G_floating) 
radians.wg.v = MTH$GATAN2 (y.rg.r, x.rg.r) 

MTHSGATAN2D 


Arc Tangent - Two Parameters (G_floating) 
degrees.wg.v = MTHSGATAN2D (y.rg.r, x.rg.r) 

MTH$GATAND 

JSB 

Arc Tangent (G_floating) 

degrees.wg.v = MTH$GATAND (x.rg.r) 

degrees.wg.v = MTH$GATAND_R7 (x.rg.v) 

MTHSGATANH 


Hyperbolic Arc Tangent (G_floating) 
atanh.wg.v = MTHSGATANH (x.rg.r) 

MTHSGCMPLX 


Make G_complex from G_floating 

CALL MTHSGCMPLX (complex.wgc.r, real-part.rg.r, imag-part.rg.r) 

MTH$GCON)G 


Conjugate of G_complex Number 

CALL MTHSGCONJG (complex-conjugate.wgc.r, 
complex-number, rgc.r) 

MTH$GCOS 

JSB 

Cosine (G_floating) 

cosine.wg.v = MTHSGCOS (r.rg.r) 

cosine.wg.v = MTH$GCOS_R7 (r.rg.v) 

MTHSGCOSD 

JSB 

Cosine (G_floating) 

cosine.wg.v = MTHSGCOSD (d.rg.r) 

cosine.wg.v = MTH$GCOSD_R7 (d.rg.v) 

MTH$GCOSH 


Hyperbolic Cosine (G_floating) 
cosh.wg.v = MTHSGCOSH (x.rg.r) 

MTH$GDBLE 


Convert F_floating to G_floating (Exact) 
g-floating.wg.v = MTHSGDBLE (f-floating.rf.r) 

MTH$GDIM 


Positive Difference of Two G-floating Parameters 
g-floating.wg.v = MTHSGDIM (g-floatingl.rg.r, g-floating2.rg.r) 
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MTHSGEXP 

)SB 

Exponential (G_floating) 
exp.wg.v = MTHSGEXP (x.rg.r) 
exp.wg.v = MTH$GEXP_R6 (x.rg.v) 

MTHSGFLOOR 

JSB 

Convert G_floating to Greatest G_floating Integer 
greatest-g-float-int.wg.v = MTHSGFLOOR (g-floating.rg.r) 
greatest-g-float-int.wg.v = MTH$GFLOOR_R3 (g-floating.rg.v) 

MTH$GFLOTI 


Convert Word to G_floating (Exact) 
g-floating.wg.v = MTH$GFLOTI (word.rw.r) 

MTH$GFLOTJ 


Convert Longword to G_floating (Exact) 
g-floating.wg.v = MTHSGFLOTJ (longword.rl.r) 

MTH$GIMAG 


Imaginary Part of G_complex Number 

imag-part.wg.v = MTHSGIMAG (complex-number.rgc.r) 

MTHSGINT 

JSB 

Convert G_floating to G_floating (Truncated) 
truncated-g-floating.wg.v = MTHSGINT (g-floating.rg.r) 
truncated-g-floating.wg.v = MTH$GINT_R4 (g-floating.rg.v) 

MTH$GLOG 

JSB 

Natural Logarithm (G_floating) 
natlog.wg.v = MTHSGLOG (x.rg.r) 
natlog.wg.v = MTH$GLOG_R8 (x.rg.v) 

MTHSGLOGIO 

JSB 

Common Logarithm (G_floating) 
loglO.wg.v = MTHSGLOGIO (x.rg.r) 
loglO.wg.v = MTH$GLOG10_R8 (x.rg.v) 

MTH$GLOG2 


Base Two Logarithm (G_floating) 
log2.wg.v = MTHSGLOG2 (x.rg.r) 

MTH$GMAX1 


G_floating Maximum of n G_floating Parameters 
g-floating-max.wg.v = MTHSGMAX1 (g-floating.rg.r, ...) 

MTH$GMIN1 


G_floating Minimum of n G_floating Parameters 
g-floating-min.wg.v = MTHSGMIN1 (g-floating.rg.r, ...) 

MTHSGMOD 


Remainder of Two G_floating Parameters, arg1/arg2 
g-floating.wg.v = MTHSGMOD (g-floatingl .rg.r, g-floating2.rg.r) 

MTH$GNINT 


Convert G_floating to Nearest G_floating Integer 
nearest-g-float-int.wg.v = MTHSGNINT (g-floating.rg.r) 

MTH$GPROD 


G_floating Product of Two F_floating Parameters 
g-floating.wg.v = MTH$GPROD (f-floatingl .rf.r, f-floating2.rf.r) 

MTH$GREAL 


Real Part of G_complex Number 

real-part.wg.v = MTHSGREAL (complex-number.rgc.r) 

MTHSGSIGN 


G_floating Transfer of Sign of y to Sign of x 

g-floating.wg.v = MTHSGSIGN (g-floating-x.rg.r, g-floating-y.rg.r) 

MTHSGSIN 

JSB 

Sine (G_floating) 

sine.wg.v = MTHSGSIN (r.rg.r) 

sine.wg.v = MTH$GSIN_R7 (r.rg.v) 
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MTHSGSINCOS 

JSB 

Sine and Cosine (G_floating) 

CALL MTH$GSINCOS (r.rg.r, sine.wg.r, cosine.wg.r) 
MTH$GSINCOS_R7 (r.rg.v, sine.wg.v, cosine.wg.v) 

MTHSGSINCOSD 

)SB 

Sine and Cosine (G_floating) 

CALL MTHSGSINCOSD (d.rg.r, sine.wg.r, cosine.wg.r) 
MTH$GSINCOSD_R7 (d.rg.v, sine.wg.v, cosine.wg.v) 

MTHSGSIND 

JSB 

Sine (G_floating) 

sine.wg.v = MTHSGSIND (d.rg.r) 
sine.wg.v = MTH$GSIND_R7 (d.rg.v) 

MTHSGSINH 


Hyperbolic Sine (G_floating) 
sinh.wg.v = MTHSGSINH (x.rg.r) 

MTH$GSQRT 

JSB 

Square Root (G_floating) 
sqrt.wg.v = MTHSGSQRT (x.rg.r) 
sqrt.wg.v = MTH$GSQRT_R5 (x.rg.v) 

MTHSGTAN 

JSB 

Tangent (G_floating) 

tangent.wg.v = MTHSGTAN (r.rg.r) 

tangent.wg.v = MTH$GTAN_R7 (r.rg.v) 

MTHSGTAND 

JSB 

Tangent (G_floating) 

tangent.wg.v = MTHSGTAND (d.rg.r) 

tangent.wg.v = MTH$GTAND_R7 (d.rg.v) 

MTHSGTANH 


Hyperbolic Tangent (G_floating) 
tanh.wg.v = MTHSGTANH (x.rg.r) 

MTHSHABS 


H_floating Absolute Value 

CALL MTHSHABS (h-absolute-value.wh.r, h-floating.rh.r) 

MTHSHACOS 

JSB 

Arc Cosine (H_floating) 

CALL MTHSHACOS (radians.wh.r, x.rh.r) 
radians.wh.v = MTH$HACOS_R8 (x.rh.v) 

MTHSHACOSD 

JSB 

Arc Cosine (H_floating) 

CALL MTHSHACOSD (degrees.wh.r, x.rh.r) 
degrees.wh.v = MTH$HACOSD_R8 (x.rh.v) 

MTHSHASIN 

JSB 

Arc Sine (H_floating) 

CALL MTHSHASIN (radians.wh.r, x.rh.r) 
radians.wh.v = MTH$HASIN_R8 (x.rh.v) 

MTHSHASIND 

JSB 

Arc Sine (H_floating) 

CALL MTHSHASIND (degrees.wh.r, x.rh.r) 
degrees.wh.v = MTH$HASIND_R8 (x.rh.v) 

MTHSHATAN 

JSB 

Arc Tangent (H_floating) 

CALL MTHSHATAN (radians.wh.r, x.rh.r) 
radians.wh.v = MTH$HATAN_R8 (x.rh.v) 

MTHSHATAN2 


Arc Tangent - Two Parameters (H_floating) 

CALL MTHSHATAN2 (radians.wh.r, y.rh.r, x.rh.r) 


46 Summary of Run-Time Library Entry Points 




MTH$HATAN2D 


Arc Tangent - Two Parameters (H_floating) 

CALL MTH$HATAN2D (degrees.wh.r, y.rh.r, x.rh.r) 

MTH$HATAND 

JSB 

Arc Tangent (H_floating) 

CALL MTHSHATAND (degrees.wh.r, x.rh.r) 
degrees.wh.v = MTH$HATAND_R8 (x.rh.v) 

MTH$HATANH 


Hyperbolic Arc Tangent (H_floating) 

CALL MTHSHATANH (atanh.wh.r, x.rh.r) 

MTHSHCOS 

JSB 

Cosine (H_floating) 

CALL MTHSHCOS (cosine.wh.r, r.rh.r) 
cosine.wh.v = MTH$HCOS_R5 (r.rh.v) 

MTH$HCOSD 

JSB 

Cosine (H_floating) 

CALL MTHSHCOSD (cosine.wh.r, d.rh.r) 
cosine.wh.v = MTH$HCOSD_R5 (d.rh.v) 

MTHSHCOSH 


Hyperbolic Cosine (H_floating) 

CALL MTHSHCOSH (cosh.wh.r, x.rh.r) 

MTH$HDIM 


Positive Difference of Two H_floating Parameters 

CALL MTHSHDIM (h-floating.wh.r, h-floatingl .rh.r, h-floating2.rh.r) 

MTHSHEXP 

JSB 

Exponential (H_floating) 

CALL MTHSHEXP (exp.wh.r, x.rh.r) 
exp.wh.v = MTH$HEXP_R6 (x.rh.v) 

MTHSHFLOOR 

JSB 

Convert H_floating to Greatest H_floating Integer 

CALL MTHSHFLOOR (greatest-h-float-int.wh.r, h-floating.rh.r) 
greatest-h-float-int.wh.v = MTH$HFLOOR_R7 (h-floating.rh.v) 

MTH$HINT 

JSB 

Convert H_floating to H_floating (Truncated) 

CALL MTH$HINT (truncated-h-floating.wh.r, h-floating.rh.r) 
truncated-h-floating.wh.v = MTH$HINT_R8 (h-floating.rh.v) 

MTHSHLOG 

JSB 

Natural Logarithm (H_floating) 

CALL MTHSHLOG (natlog.wh.r, x.rh.r) 
natlog.wh.v = MTH$HLOG_R8 (x.rh.v) 

MTH$HLOG10 

JSB 

Common Logarithm (H_floating) 

CALL MTHSHLOGIO (loglO.wh.r, x.rh.r) 
loglO.wh.v = MTH$HLOG10_R8 (x.rh.v) 

MTH$HLOG2 


Base Two Logarithm (H_floating) 

CALL MTHSLOG2 (log2.wh.r, x.rh.r) 

MTH$HMAX1 


H_floating Maximum of n H_floating Parameters 

CALL MTH$HMAX1 (h-floating-max.wh.r, h-floating.rh.r, ...) 

MTHSHMIN1 


H_floating Minimum of n H_floating Parameters 

CALL MTHSHMIN1 (h-floating-min.wh.r, h-floating.rh.r, ...) 

MTHSGMOD 


Remainder of Two G_floating Parameters, arg1/arg2 
g-floating.wg.v = MTHSGMOD (g-floatingl .rg.r, g-floating2.rg.r) 
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MTH$HNINT 


Convert H_floating to Nearest H_floating Integer 

CALL MTH$HNINT (nearest-h-float-int.wh.v, h-floating.rh.r) 

MTH$HSIGN 


H_floating Transfer of Sign of y to Sign of x 

CALL MTHSHSIGN (h-floating.wh.r, h-floating-x.rh.r, 
h-floating-y.rh.r) 

MTH$HSIN 

)SB 

Sine (H_floating) 

CALLMTHSHSIN (sine.wh.r, r.rh.r) 
sine.wh.v = MTH$HSIN_R5 (r.rh.v) 

MTH$HSINCOS 

)SB 

Sine and Cosine (H_floating) 

CALL MTH$HSINCOS (r.rh.r, sine.wh.r, cosine.wh.r) 
MTH$HSINCOS_R7 (r.rh.v, sine.wh.v, cosine.wh.v) 

MTH$HSINCOSD 

]SB 

Sine and Cosine (H_floating) 

CALL MTH$HSINCOSD (d.rh.r, sine.wh.r, cosine.wh.r) 
MTH$HSINCOSD_R7 (d.rh.v, sine.wh.v, cosine.wh.v) 

MTH$HSIND 

JSB 

Sine (H_floating) 

CALL MTHSHSIND (sine.wh.r, d.rh.r) 
sine.wh.v = MTH$HSIND_R5 (d.rh.v) 

MTHSHSINH 


Hyperbolic Sine (H_floating) 

CALL MTHSHSINH (sinh.wh.r, x.rh.r) 

MTHSHSQRT 

)SB 

Square Root (H_floating) 

CALL MTH$HSQRT (sqrt.wh.r, x.rh.r) 
sqrt.wh.v = MTH$HSQRT_R8 (x.rh.v) 

MTH$HTAN 

JSB 

Tangent (H_floating) 

CALL MTH$HTAN (tangent.wh.r, r.rh.r) 
tangent.wh.v = MTH$HTAN_R5 (r.rh.v) 

MTH$HTAND 

JSB 

Tangent (H_floating) 

CALL MTH$HTAND (tangent.wh.r, d.rh.r) 
tangent.wh.v = MTH$HTAND_R5 (d.rh.v) 

MTHSHTANH 


Hyperbolic Tangent (H_floating) 

CALL MTHSHTANH (tanh.wh.r, x.rh.r) 

MTH$I IABS 


Word Absolute Value 

absolute-value.ww.v = MTH$IIABS (word.rw.r) 

MTH$I IAND 


Bitwise AND of Two Word Parameters 

word.ww.v = MTHSIIAND (wordl .rw.r, word2.rw.r) 

MTH$IIDIM 


Positive Difference of Two Word Parameters 
word.ww.v = MTH$IIDIM (wordl .rw.r, word2.rw.r) 

MTH$IIDINT 


Convert D_floating to Word (Truncated) 
word.ww.v = MTHSIIDINT (d-floating.rd.r) 

MTH$IIDNNT 


Convert D_floating to Nearest Word Integer 
nearest-word-int.ww.v = MTH$IIDNNT (d-floating.rd.r) 
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MTH$IIEOR 

Bitwise Exclusive OR of Two Word Parameters 
word.ww.v = MTHSIIEOR (wordl .rw.r, word2.rw.r) 

MTH$IIFIX 

Convert F_floating to Word (Truncated) 
word.ww.v = MTH$IIFIX (f-floating.rf.r) 

MTHSIIGINT 

Convert G_floating to Word (Truncated) 
truncated-word.ww.v = MTHSIIGINT (g-floating.rg.r) 

MTH$IIGNNT 

Convert G_floating to Nearest Word Integer 
nearest-word-int.ww.v = MTHSIIGNNT (g-floating.rg.r) 

MTHSIIHINT 

Convert H_floating to Truncated Word 
truncated-word.ww.v = MTHSIIHINT (h-floating.rh.r) 

MTH$IIHNNT 

Convert H_floating to Nearest Word Integer 
nearest-word-int.ww.v = MTHSIIHNNT (h-floating.rh.r) 

MTH$IINT 

Convert F_floating to Word (Truncated) 
truncated-word.ww.v = MTHSIINT (f-floating.rf.r) 

MTHSIIOR 

Bitwise Inclusive OR of Two Word Parameters 
word.ww.v = MTHSIIOR (wordl.rw.r, word2.rw.r) 

MTH$IISHFT 

Bitwise Shift of Word 

word.ww.v = MTHSIISHFT (word.rwu.r, shift-count-word.rw.r) 

MTHSIISIGN 

Word Transfer of Sign of y to Sign of x 

word.ww.v = MTHSIISIGN (word-x.rw.r, word-y.rw.r) 

MTHSIMAXO 

Word Maximum of n Word Parameters 
word-max.ww.v = MTHSIMAXO (word.rw.r, ...) 

MTHSIMAX1 

Word Maximum of n F_floating Parameters 
word-max.ww.v = MTH$IMAX1 (f-floating.rf.r, ...) 

MTH$IMIN0 

Word Minimum of n Word Parameters 
word-min.ww.v = MTHSIMINO (word.rw.r, ...) 

MTHSIMIN1 

Word Minimum of n F_floating Parameters 
word-min.ww.v = MTHSIMIN1 (f-floating.rf.r, ...) 

MTH$IMOD 

Remainder of Two Word Parameters, arg1/arg2 
word.ww.v — MTHSIMOD (wordl .rw.r, word2.rw.r) 

MTH$ININT 

Convert F_floating to Nearest Word Integer 
nearest-word-int.ww.v — MTHSININT (f-floating.rf.r) 

MTH$INOT 

Bitwise Complement of Word Parameter 
word.ww.v = MTHSINOT (word.rw.r) 

MTHSJIABS 

Longword Absolute Value 

absolute-value.wl.v = MTHSjIABS (longword.rl.r) 

MTHSJIAND 

Bitwise AND of Two Longword Parameters 

longword.wl.v = MTHSJIAND (longwordl .rl.r, longword2.rl.r) 
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MTHSJIDIM 

Positive Difference of Two Longword Parameters 
longword.wl.v = MTH$JIDIM (longwordl.rl.r, longword2.rl.r) 

MTHSJIDINT 

Convert D_floating to Longword (Truncated) 
longword.wl.v = MTHSJIDINT (d-floating.rd.r) 

MTHSJIDNNT 

Convert D_floating to Nearest Longword Integer 
nearest-long-int.wl.v = MTHSJIDNNT (d-floating.rd.r) 

MTHSJIEOR 

Bitwise Exclusive OR of Two Longword Parameters 
longword.wl.v = MTHSJIEOR (longwordl.rl.r, longword2.rl.r) 

MTHSJIFIX 

Convert F_floating to Longword (Truncated) 
longword.wl.v = MTHSJIFIX (f-floating.rf.r) 

MTHSJIGINT 

Convert G_floating to Longword (Truncated) 
truncated-longword.wl.v = MTHSJIGINT (g-floating.rg.r) 

MTHSJIGNNT 

Convert G_floating to Nearest Longword Integer 
nearest-long-int.wl.v = MTHSJIGNNT (g-floating.rg.r) 

MTHSJIHINT 

Convert H_floating to Truncated Longword 
truncated-longword.wl.v = MTHSJIHINT (h-floating.rh.r) 

MTHSJIHNNT 

Convert H_floating to Nearest Longword Integer 
nearest-long-int.wl.v = MTHSJIHNNT (h-floating.rh.r) 

MTHSJINT 

Convert F_floating to Longword (Truncated) 
truncated-longword.wl.v = MTHSJINT (f-floating.rf.r) 

MTHSJIOR 

Bitwise Inclusive OR of Two Longword Parameters 
longword.wl.v = MTHSJIOR (longwordl .rl.r, longword2.rl.r) 

MTHSJISHFT 

Bitwise Shift of Longword 

longword.wl.v = MTHSJISHFT (longwordl.rlu.r, longword2.rl.r) 

MTHSJISIGN 

Longword Transfer of Sign of y to Sign of x 

longword.wl.v = MTHSJISIGN (longword-x.rl.r, longword-y.rl.r) 

MTHSJMAXO 

Longword Maximum of n Longword Parameters 
longword-max.wl.v = MTHSJMAXO (longword.rl.r, ...) 

MTHSJMAX1 

Longword Maximum of n F_floating Parameters 
longword-max.wl.v = MTHSJMAX1 (f-floating.rf.r, ...) 

MTHSJMINO 

Longword Minimum of n Longword Parameters 
longword-min.wl.v = MTHSJMINO (longword.rl.r, ...) 

MTH$JMIN1 

Longword Minimum of n F_floating Parameters 
longword-min.wl.v = MTHSJMIN1 (f-floating.rf.r, ...) 

MTHSJMOD 

Remainder of Two Longword Parameters, arg1/arg2 
longword.wl.v = MTHSJMOD (longwordl .rl.r, longword2.rl.r) 

MTHSJNINT 

Convert F_floating to Nearest Longword Integer 
nearest-long-int.wl.v = MTHSJNINT (f-floating.rf.r) 
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MTHSJNOT 


Bitwise Complement of Longword Parameter 
longword.wl.v = MTH$JNOT (longword.rl.r) 

MTH$RANDOM 


Universal Pseudo-Random Number Generator 
result.wf.v = MTH$RANDOM (seed.mlu.r) 

MTHSREAL 


Real Part of F_complex Number 

real-part.wf.v = MTHSREAL (complex-number.rfc.r) 

MTH$SGN 


D_floating Sign Function 

longword.wl.v = MTHSSGN (d-floating.rd.r) 

MTHSSGN 


F_floating Sign Function 

longword.wl.v = MTHSSGN (f-floating.rf.r) 

MTH$SIGN 


F_floating Transfer of Sign of y to Sign of x 

f-floating.wf.v = MTHSSIGN (f-floating-x.rf.r, f-floating-y.rf.r) 

MTHSSIN 

JSB 

Sine (F_floating) 

sine.wf.v = MTHSSIN (r.rf.r) 

sine.wf.v = MTH$SIN_R4 (r.rf.v) 

MTH$SINCOS 

JSB 

Sine and Cosine (F_floating) 

CALL MTHSSINCOS (r.rf.r, sine.wf.r, cosine.wf.r) 
MTH$SINCOS_R5 (r.rf.v, sine.wf.v, cosine.wf.v) 

MTH$SINCOSD 

JSB 

Sine and Cosine (F_floating) 

CALL MTHSSINCOSD (d.rf.r, sine.wf.r, cosine.wf.r) 
MTH$SINCOSD_R5 (d.rf.v, sine.wf.v, cosine.wf.v) 

MTH$SIND 

JSB 

Sine (F_floating) 

sine.wf.v = MTHSSIND (d.rf.r) 

sine.wf.v = MTH$SIND_R4 (d.rf.v) 

MTHSSINH 


Hyperbolic Sine (F_floating) 
sinh.wf.v = MTHSSINH (x.rf.r) 

MTHSSNGL 


Convert D_floating to F_floating (Rounded) 
f-floating.wf.v = MTHSSNGL (d-floating.rd.r) 

MTHSSNGLG 


Convert G_floating to F_floating (Rounded) 
f-floating.wf.v = MTHSSNGLG (g-floating.rg.r) 

MTHSSQRT 

JSB 

Square Root (F_floating) 
sqrt.wf.v = MTHSSQRT (x.rf.r) 
sqrt.wf.v = MTH$SQRT_R3 (x.rf.v) 

MTH$TAN 

JSB 

Tangent (F_floating) 

tangent.wf.v = MTHSTAN (r.rf.r) 

tangent.wf.v = MTH$TAN_R4 (r.rf.v) 

MTH$TAND 

JSB 

Tangent (F_floating) 

tangent.wf.v = MTHSTAND (d.rf.r) 

tangent.wf.v = MTH$TAND_R4 (d.rf.v) 
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MTHSTANH 


Hyperbolic Tangent (F_floating) 
tanh.wf.v = MTH$TANH (x.rf.r) 

Language-Independent Language-Support Procedures 


OTS$CVT_l_TB 

OTS$CVT_l_Tl 

OTS$CVT_l_TL 

OTS$CVT_l_TO 

OTS$CVT_l_TZ 

OTS$CVT_TB_L 

OTS$CVT_TI_L 

OTS$CVT_TI_L 

OTS$CVT_TO_L 

OT S $C VT_TZ_L 

OTS$CVT_T_D 

OTS$CVT_T_F 

OTS$CVT_T_G 


Convert Longword to Text (Binary) 

ret-status.wlc.v = OTS$CVT_l_TB (value.rz.r, out-str.wt.ds 

bint-digits.rl.v [, value-size, rl.v]]) 

Convert Longword to Text (Signed Integer) (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_L_TI (value.rz.r, out-str.wt.ds 
[Jnt-digits.rl.v [,value-size.rl.v [,flags.rlu.v]]]) 

Convert Longword to Text (Logical) 

ret-status.wlc.v = OTS$CVT_L_TL (value.rl.r, out-str.wt.ds) 

Convert Longword to Text (Octal) (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_L_TO (value.rz.r, out-str.wt.ds 
bint-digits.rl.v [,value-size.rl.v]]) 

Convert Longword to Text (Hexadecimal) (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_L_TZ (value.rz.r, out-str.wt.ds 
bint-digits.rl.v [,value-size.rl.v]]) 

Convert Text (Binary) to Longword 

ret-status.wlc.v = OTS$CVT_TB_L (inp-str.rt.dxl, value.wz.r 
[,value-size.rl.v [,flags.rlu.v]]) 

Convert Text (Signed Integer) to Longword (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_TI_L (inp-str.rt.dxl, value.wz.r 
[,value-size.rl.v [,flags.rlu.v]]) 

Convert Text (Logical) to Longword (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_TL_L (inp-str.rt.dxl, value.wz.r 
[, value-size, rl.v]) 

Convert Text (Octal) to Longword (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_TO_L (inp-str.rt.dxl, value.wz.r 
[,value-size.rl.v [,flags.rlu.v]]) 

Convert Text (Hexadecimal) to Longword (where z = b, w, or I) 
ret-status.wlc.v = OTS$CVT_TZ_L (inp-str.rt.dxl, value.wz.r 
[,value-size.rl.v [,flags.rlu.v]]) 

Convert Text to D_floating 

ret-status.wlc.v = OTS$CVT_T_D (inp-str.rt.dxl, value.wd.r 
bdigits-in-fract.rlu.v [,scale-factor.rl.v [,flags.rlu.v [,ext-bits.wb.r]]]]) 

Convert Text to F_floating 

ret-status.wlc.v = OTS$CVT_T_F (inp-str.rt.dxl, value.wf.r 
bdigits-in-fract.rlu.v [,scale-factor.rl.v [,flags.rlu.v [,ext-bits.wb.r]]]]) 

Convert Text to G_floating 

ret-status.wlc.v = OTS$CVT_T_G (inp-str.rt.dxl, value.wg.r 
bdigits-in-fract.rlu.v [,scale-factor.rl.v [,flags.rlu.v [,ext-bit's.ww.r]]]]) 
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OTS$CVT_T_H 

Convert Text to H_floating 

ret-status.wlc.v = OTS$CVT_T_H (inp-str.rt.dxl, value.wh.r 
[,digits-in-fract.rlu.v [,scale-factor.rl.v [,flags.rlu.v [,ext-bits.ww.r]]]]) 

OTSSDIVC 

Divide F_complex Numbers 

complex-quotient.wfc.v = OTSSDIVC (dividend.rfc.v, divisor.rfc.v) 

OTS$DIVCD_R3 

Divide D_complex Numbers 

complex-quotient.wdc.v = OTS$DIVCD_R3 (dividend.rdc.v, 
divisor.rdc.v) 

OTS$DIVCG_R3 

Divide G_complex Numbers 

complex-quotient.wgc.v = OTS$DIVCG_R3 (dividend.rgc.v, 
divisor.rgc.v) 

OTS$MULCD_R3 

Multiply D_complex Numbers 

product.wdc.v = OTS$MULCD_R3 (multiplier.rdc.v, 
multiplicand.rdc.v) 

OTS$MULCG_R3 

Multiply G_complex Numbers 

product.wgc.v = OTS$MULCG_R3 (multiplier.rgc.v, 
multiplicand.rgc.v) 

OTSSPOWCC 

Raise F_complex Base to F_complex Power 

result.wfc.v = OTSSPOWCC (base.rfc.v, exponent.rfc.v) 

OTS$POWCDCD_R3 

Raise D_complex Base to D_complex Power 

result.wdc.v = OTS$POWCDCD_R3 (base.rdc.v, exponent.rdc.v) 

OTS$POWCDJ_R3 

Raise D_complex Base to Longword Power 

result.wdc.v = OTS$POWCDJ_R3 (base.rdc.v, exponent.rl.v) 

OTS$POWCGCG_R3 

Raise G_complex Base to G_complex Power 

result.wgc.v = OTS$POWCGCG_R3 (base.rgc.v, exponent.rgc.v) 

OTS$POWCGJ_R3 

Raise G_complex Base to Longword Power 

result.wgc.v = OTS$POWCGJ_R3 (base.rgc.v, exponent.rl.v) 

OTSSPOWC) 

Raise F_complex Base to Longword Power 

result.wfc.v = OTSSPOWCJ (base.rfc.v, exponent.rl.v) 

OTSSPOWDD 

Raise D_floating Base to D_floating Power 

result.wd.v = OTSSPOWDD (base.rd.v, exponent.rd.v) 

OTSSPOWD] 

Raise D_floating Base to Longword Power 

result.wd.v = OTSSPOWDJ (base.rd.v, exponent.rl.v) 

OTS$POWDR 

Raise D_floating Base to F_floating Power 

result.wd.v = OTSSPOWDR (base.rd.v, exponent.rf.v) 

OTSSPOWGG 

Raise G_floating Base to G_floating Power 

result.wg.v = OTSSPOWGG (base.rg.v, exponent.rg.v) 

OTSSPOWG) 

Raise G_floating Base to Longword Power 

result.wg.v = OTSSPOWGJ (base.rg.v, exponent.rl.v) 
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OTS$POWH H_R3 
OTS$POWH J_R3 

OTSSPOWII 

OTSSPOWJJ 

OTS$POWRD 

OTSSPOWRJ 

OTS$POWRR 

OTS$SCOPY_DXDX 

JSB 

OTS$SCOPY_R_DX 

JSB 

OTS$SFREE1_DD 

JSB 

OTS$SFREEN_DD 

JSB 

OTS$SGET1_DD 

JSB 

PLI-Specific Procedures 

PLI$ABITABIT_R6 

PLI$ABITBIT_R6 


Raise H_floating Base to H_floating Power 

result.wh.v = OTS$POWHH_R3 (base.rh.v, exponent.rh.v) 

Raise H_floating Base to Longword Power 

result.wh.v = OTS$POWHJ_R3 (base.rh.v, exponent.rl.v) 

Raise Word Base to Word Power 

result.ww.v = OTSSPOWII (base.rw.v, exponent.rw.v) 

Raise Longword Base to Longword Power 
result.wl.v = OTSSPOWJJ (base.rl.v, exponent.rl.v) 

Raise F_floating Base to D_floating Power 

result.wd.v = OTSSPOWRD (base.rf.v, exponent.rd.v) 

Raise F_floating Base to Longword Power 

result.wf.v = OTSSPOWRJ (base.rf.v, exponent.rl.v) 

Raise F_floating Base to F_floating Power 

result.wf.v = OTSSPOWRR (base.rf.v, exponent.rf.v) 

Copy Any Class String Passed by Descriptor to Any Class String 
ret-status.wlc.v = OTS$SCOPY_DXDX (src-str.rt.dx, dst-str.wt.dx) 
unmoved-src.wlu.v = OTS$SCOPY_DXDX6 (src-str.rt.dx, 
dst-str.wt.dx) 

Copy Any Class String Passed by Reference to Any Class String 
ret-status.wlc.v = OTS$SCOPY_R_DX (src-len.rwu.v, src.rt.r, 
dst-str.wt.dx) 

unmoved-src.wlu.v = OTS$SCOPY_R_DX6 (src-len.rwu.v, src.rt.v, 
dst-str.wt.dx) 

Deallocate One Dynamic String 

ret-status.wlc.v = OTS$SFREE1_DD (dyn-dsc.mqu.r) 
ret-status.wlc.v = OTS$SFREE1_DD6 (dyn-dsc.mqu.v) 

Deallocate n Dynamic Strings 

ret-status.wlc.v = OTS$SFREEN_DD (dsc-num.rlu.v, first-dsc.mqu.r) 
ret-status.wlc.v = OTS$SFREEN_DD6 (dsc-num.rlu.v, first-dsc.mqu.v) 

Allocate One Dynamic String 

ret-status.wlc.v = OTS$SGET1_DD (len.rwu.v, dyn-dsc.mqu.r) 
ret-status.wlc.v = OTS$SGET1_DD_R6 (len.rwu.v, dyn-dsc.mqu.v) 


Convert Aligned Bit String to Aligned Bit String 

CALL PLI$ABITABIT_R6 (src.rv.r, src-dope.rz.r, dest.wv.r, 

dest-dope.wz.r) 

Convert Aligned Bit String to Unaligned Bit String 
CALL PLI$ABITBIT_R6 (src.rv.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 
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PLI$ABITCHAR_R6 

Convert Aligned Bit String to Fixed-Length String 

CALL PLI$ABITCHAR_R6 (src.rv^r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$ABITFIXB_R6 

Convert Aligned Bit String to Fixed Binary 

CALL PLI$ABITFIXB_R6 (src.rv.r, src-dope.rz.r, dest.wl.r, 
dest-dope.wz.r) 

PLI$ABITFIXD_R6 

Convert Aligned Bit String to Fixed Decimal 

CALL PLI$ABITFIXD_R6 (src.rv.r, src-dope.rz.r, dest.wp.r, 
dest-dope.wz.r) 

PLI$ABITFLTB_R6 

Convert Aligned Bit String to Floating Binary 

CALL PLI$ABITFLTB_R6 (src.rv.r, src-dope.rz.r, dest.wz.r, 
dest- dope.wz.r) 

PLI$ABITFLTD_R6 

Convert Aligned Bit String to Floating Decimal 

CALL PLI$ABITFLTD_R6 (src.rv.r, src-dope.rz.r, dest.wz.r, 
dest-dope.wz.r) 

PLI$ABITPIC_R6 

Convert Aligned Bit String to Picture 

CALL PLI$ABITPIC_R6 (src.rv.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$ABITVCHA_R6 

Convert Aligned Bit String to Variable-Length String 

CALL PLI$ABITVCFHA_R6 (src.rv.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLISALOCHEEP 

Allocate Heap Storage 

ret-status.wlc.v = PLI$ALOCHEEP (num-bytes.rlu.r, bas.wa.r) 

PLISANDBIT 

AND Two Bit Strings 

ret-string.wv.r = PLI$ANDBIT (scrl.rz.r, scrl-dope.rz.r, src2.rz.r 
src2-dope.rz.r) 

PLI$BITABIT_R6 

Convert Unaligned Bit String to Aligned Bit String 

CALL PLI$BITABIT_R6 (src.rvu.r, src-dope.rz.r, dest.wv.r, 
dest-dope.wz.r, src-offset.rv.v) 

PLI$BITBIT_R6 

Convert Unaligned Bit String to Unaligned Bit String 

CALL PLI$BITBIT_R6 (src.rvu.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, src-offset.rv.v, dest-offset.wv.v) 

PLI$BITCHAR_R6 

Convert Unaligned Bit String to Fixed-Length String 

CALL PLI$BITCFHAR_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r, src-offset.rv.v) 

PLI$BITFIXB_R6 

Convert Unaligned Bit String to Fixed Binary 

CALL PLI$BITFIXB_R6 (src.rvu.r, src-dope.rz.r, dest.wl.r, 
dest-dope.wz.r, src-offset.rv.v) 

PLI$BITFIXD_R6 

Convert Unaligned Bit String to Fixed Decimal 

CALL PLI$BITFIXD_R6 (src.rvu.r, src-dope.rz.r, dest.wp.r, 
dest-dope.wz.r, src-offset.rv.v) 
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PLI$BITFLTB_R6 

PLI$BITFLTD_R6 

PLI$BITPIC_R6 

PLI$BITVCHA_R6 

PLI$BOOLBIT 

PLI$BOUND_CHECK 

JSB 

PLISCATBIT 

PLI$CHARABIT_R6 

PLI$CHARBIT_R6 

PLI$CHARCHAR_R6 

PLI$CHARFIXB_R6 

PLI$CHARFIXD_R6 

PLI$CHARFLTB_R6 

PLI$CHARFLTD_R6 


Convert Unaligned Bit String to Floating Binary 

CALL PLI$BITFLTB_R6 (src.rvu.r, src-dope.rz.r, dest.wz.r, 

dest-dope.wz.r, src-offset.rv.v) 

Convert Unaligned Bit String to Floating Decimal 
CALL PLI$BITFLTD_R6 (src.rvu.r, src-dope.rz.r, dest.wz.r, 
dest-dope.wz.r, src-offset.rv.v) 

Convert Unaligned Bit String to Picture 

CALL PLI$BITPIC_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, 

dest-dope.wz.r, src-offset.rv.v) 

Convert Unaligned Bit String to Variable-Length String 
CALL PLI$BITVCHA_R6 (src.rvu.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r, src-offset.rv.v) 

Perform BOOL Function 

ret-string.wv.r = PLISBOOLBIT (srcl.rz.r, srcl-dope.rz.r, src2.rz. 
src2-dope.rz.r, src3.rz.r, src3-dope.rz.r) 

Test Subscript Range 

PLI$BOUND_CHECK (bound-number.rb.v) 

Concatenate Two Bit Strings 

ret-string.wv.r = PLI$CATBIT (srcl.rz.r, srcl-dope.rz.r, src2.rz.r, 
src2-dope.rz.r) 

Convert Fixed-Length String to Aligned Bit String 

CALL PLI$CFHARABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Unaligned Bit String 
CALL PLI$CHARBIT_R6 (src.rt.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 

Convert Fixed-Length String to Fixed-Length String 

CALL PLI$CFHARCHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Fixed Binary 

CALL PLI$CFfARFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Fixed Decimal 

CALL PLI$CFHARFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Floating Binary 

CALL PLI$CHARFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Floating Decimal 

CALL PLI$CHARFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 

dest-dope.wz.r) 
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PLI$CHARPIC_R6 

PLI$CHARVCHA_R6 

PLI$CLOSE 

PLISCMPBIT 

PLI$CND_HND 

PLI$CVT_FR_PIC 

PLI$CVT_TO_PIC 

PLI$DATE 

JSB 

PLI$DEF_HND 

PLI$DELETE 

PLI$DISPLAY 

PLI$DIV_PK_LONG 

PLI$DIV_PK_SHORT 

PUSEXTEND 

PLI$FIXBABIT_R6 


Convert Fixed-Length String to Picture 

CALL PLI$CHARPIC_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 

dest-dope.wz.r) 

Convert Fixed-Length String to Variable-Length String 
CALL PLI$CHARVCHA_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.rz.r) 

Perform CLOSE Operation 

CALL PLI$CLOSE (fcb.mz.r [,envir.mz.r]) 

Compare Two Bit Strings 

ret-value.wv.v = PLISCMPBIT (srcl .rz.r, srcl-dope.rz.r, src2.rz.r, 
src2-dope.rz.r) 

Set Up Condition Handler 
MOVAB PLI$CND_HND, (FP) 

Converts Picture to Packed Decimal 

CALL PLI$CVT_FR_PIC (pic-constant.rz.r, src-dope.rz.r, src.rt.r, 
dest-dope.wz.r, dest.wz.r) 

Converts Packed Decimal to Picture 

CALL PLI$CVT_TO_PIC (pic-constant.rz.r, src-dope.rz.r, src-rz.r, 
dest-dope.wz.r, dest.wt.r) 

Perform DATE Function 
PLI$DATE (ret-string.wt.r) 

Set Up Default Condition Handler 
MOVAB PLI$DEF_HND, (FP) 

Perform DELETE Operation 

CALL PLI$DELETE (fcb.mz.r, [key.rz.r, key-size.rl.v, key-type.rl.v, 
fast-del.rv.r, key-num.rbu.r, rec-id.rq.r, match-gr.rv.r, match- 
greq.rv.rl) 

Perform DISPLAY Operation 

CALL PLISDISPLAY (fcb.mz.r, disp-block.ra.v, disp-size.rl.v, 
disp-type.rl.v) 

Divide Packed Decimal (30 or more Decimal Digits) 

CALL PLI$DIV_PK_LONG (divd.rp.r, divr.rp.r, divr-prec.rw.v, 
quot.wp.r, quot-prec.rw.v, prec-data.rw.v, scale-data-rw.v) 

Divide Packed Decimal (less than 30 Decimal Digits) 

CALL PLI$DIV_PK_SHORT (divd.rp.r, divr.rp.r, divr-prec.rw.v, 
quot.wp.r, quot-prec.rw.v, prec-data.rw.v) 

Perform EXTEND Subroutine 

CALL PUSEXTEND (fcb.mz.r, blocks.rl.v) 

Convert Fixed Binary to Aligned Bit String 

CALL PLI$FIXBABIT_R6 (src.rl.r, src-dope.rz.r, dest.wv.r, 

dest-dope.wz.r) 
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PLI$FIXBBIT_R6 

Convert Fixed Binary to Unaligned Bit String 

CALL PLI$FIXBBIT_R6 (src.rl.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 

PLI$FIXBCHAR_R6 

Convert Fixed Binary to Fixed-Length String 

CALL PLI$FIXBCHAR_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$FIXBFIXB_R6 

Convert Fixed Binary to Fixed Binary 

CALL PLI$FIXBFIXB_R6 (src.rl.r, src-dope.rz.r, dest.wl.r, 
dest-dope.wz.r) 

PLI$FIXBFIXD_R6 

Convert Fixed Binary to Fixed Decimal 

CALL PLI$FIXBFIXD_R6 (src.rl.r, src-dope.rz.r, dest.wp.r, 
dest-dope.wz.r) 

PLI$FIXBPIC_R6 

Convert Fixed Binary to Picture 

CALL PLI$FIXBPIC_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, 
dest- dope.wz.r) 

PLI$FIXBVCHA_R6 

Convert Fixed Binary to Variable-Length String 

CALL PLI$FIXBVCHA_R6 (src.rl.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$FIXDABIT_R6 

Convert Fixed Decimal to Aligned Bit String 

CALL PLI$FIXDABIT_R6 (src.rp.r, src.rz.r, dest.wv.r, dest-dope.wz.r) 

PLI$FIXDBIT_R6 

Convert Fixed Decimal to Unaligned Bit String 

CALL PLI$FIXDBIT_R6 (src.rp.r, src.rz.r, dest.wvu.r, dest-dope.wz.r, 
dest-offset.wv.v) 

PLI$FIXDFIXB_R6 

Convert Fixed Decimal to Fixed Binary 

CALL PLI$FIXDFIXB_R6 (src.rp.r, src.rz.r, dest.wl.r, dest-dope.wz.r) 

PLI$FIXDFIXD_R6 

Convert Fixed Decimal to Fixed Decimal 

CALL PLI$FIXDFIXD_R6 (src.rp.r, src.rz.r, dest.wp.r, dest.wz.r) 

PLI$FIXDFLTB_R6 

Convert Fixed Decimal to Floating Binary 

CALL PLI$FIXDFLTB_R6 (src.rp.r, src.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FIXDFLTD_R6 

Convert Fixed Decimal to Floating Decimal 

CALL PLI$FIXDFLTD_R6 (src.rp.r, src.rz.r, dest.wz.r, dest-dope.wz.r) 

PLI$FIXDPIC_R6 

Convert Fixed Decimal to Picture 

CALL PLI$FIXDPIC_R6 (src.rp.r, src.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FIXDVCHA_R6 

Convert Fixed Decimal to Variable-Length String 

CALL PLI$FIXDVCHA_R6 (src.rp.r, src.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$FLUSH 

Perform FLUSH Subroutine 

CALL PLI$FLUSH (fcb.mz.r) 

PLI$FREEHEEP 

Perform FREE Subroutine 
ret-status.wlc.v = PLI$FREEHEEP (adr.wa.r) 

PLI$GETEABIT_R6 

JSB 

Get Edit Aligned Bit String 

PLI$GETEABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 
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PLI$GETEBIT_R6 

JSB 

PLI$GETECHAR_R6 

JSB 

PLI$GETEFIXB_R6 

JSB 

PLI$GETEFIXD_R6 

JSB 

PLI$GETEFLTB_R6 

JSB 

PLI$GETEFLTD_R6 

JSB 

PLI$GETEPIC_R6 

JSB 

PLI$GETEVCHA_R6 

JSB 

PLI$GETFILE_R6 

JSB 


PLI$GETLABIT_R6 

JSB 

PLI$GETLBIT_R6 

JSB 

PLI$GETLCHAR_R6 

JSB 

PLI$GETLFIXB_R6 

JSB 

PLI$GETLFIXD_R6 

JSB 

PLI$GETLFLTB_R6 

JSB 

PL!$GETLFLTD_R6 

JSB 

PLI$GETLPIC_R6 

JSB 

PLI$GETLVCHA_R6 

JSB 

PLI$GETSTRNG_R6 

JSB 


Get Edit Unaligned Bit String 

PLI$GETEBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 

Get Edit Fixed-Length String 
PLI$GETECHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Get Edit Fixed Binary 

PLI$GETEFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

Get Edit Fixed Decimal 

PLI$GETEFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

Get Edit Floating Binary 

PLI$GETEFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

Get Edit Floating Decimal 

PLI$GETEFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

Get Edit Picture 

PLI$GETEPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Get Edit Variable-Length String 
PLI$GETEVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Get File Parameters 

PLI$GETFILE_R6 (fcb.rz.r, skip.rw.r, format.rz.r, noecho.rv.v, 
nofilter.rv.v, prompt.rt.r, purge.rv.v) 

Get List Aligned Bit String 
PLI$GETLABIT_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

Get List Unaligned Bit String 

PLI$GETLBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 

Get List Fixed-Length String 
PLI$GETLCHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Get List Fixed Binary 

PLI$GETLFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

Get List Fixed Decimal 

PLI$GETLFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

Get List Floating Binary 

PLI$GETLFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

Get List Floating Decimal 

PLI$GETLFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

Get List Picture 

PLI$GETLPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Get List Variable-Length String 
PLI$GETLVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

Prepare for PL/I statement, GET STRING 
PLI$GETSTRNG_R6 (src.rt.r, format.rbu.ra) 
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PLI$INDEXBIT 

PLI$IO_ERROR 

PLISMOVBIT 

PLISMOVTRANCHAR 


PLI$NONLOC_GOTO 

JSB 

PLI$NONLOC_RET 

JSB 

PLISNOTBIT 

PLISNXTVOL 

PLISONCNDARGS 

PLISONCODE 

PLISONFILE 

PLISONKEY 

PLISOPEN 

PLI$OPTIONS_MAIN 

JSB 

PLI$OPTMAIN_RET 

JSB 

PLI$ORBIT 

PLI$PICABIT_R6 


Perform INDEX Function 

ret-value.wv.v = PLISINDEXBIT (srcl.rz.r, srcl-dope.rz.r, src2.rz.r 
src2-dope.rz.r) 

Signal I/O Error 

CALL PLI$IO_ERROR (cond.rl.v,error.rl.v,fcb.mz.r) 

Move Unaligned Bit String 

ret-string.wv.r = PLISMOVBIT (srcl.rz.r, srcl-dope.rz.r, target.rz. 
target-dope, rz.r) 

Perform TRANSLATE Function 

ret-string.wt.r = PLISMOVTRANCHAR (src.rt.r, src-dope.rz.r, 
trans-table.rt.r, trans-table-dope.rz.r, trans-string.rt.r, 
trans-string-dope, rz.r) 

Nonlocal GOTO 

PLI$NONLOC_GOTO (new-pc.rl.v, new-fp.rl.v) 

Nonlocal RETURN 

ret-value.wz.v = PLI$NONLOC_RET (num.rl.v) 

Perform Logical NOT Unaligned Bit String 
ret-string.wv.r = PLISNOTBIT (srcl .rz.r, srcl-dope.rz.r) 

Perform NEXT_VOLUME Subroutine 
CALL PLISNXTVOL (fcb.mz.r) 

Perform ONARGSLIST Function 
ret-value.wl.v = PLISONCNDARGS 

Perform ONCODE Function 
ret-status.wlc.v = PLISONCODE 

Perform ONFILE Function 

CALL PLISONFILE (ret-string-size.rw.v, ret-string.wt.r) 

Perform ONKEY Function 

CALL PLlSONKEY (ret-string-size.rw.v, ret-string.wt.r) 

Perform OPEN Statement 

CALL PLISOPEN (fcb.mz.r, attr.rv.v, linesize.rl.v, pagesize.rl.v, 
title.rt.r, envir.mz.r) 

Perform MAIN Option 
PLI$OPTIONS_MAIN 

Perform Return within OPTIONS MAIN Block 
PLI$OPTMAIN_RET 

Perform OR Function 

ret-string.wv.r = PLISORBIT (srcl .rz.r, srcl-dope.rz.r, src2.rz.r, 
src2-dope.rz.r) 

Convert Picture to Aligned Bit String 

CALL PLI$PICABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, 

dest-dope.wz.r) 
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PU$PICBIT_R6 


Convert Picture to Unaligned Bit String 

CALL PLI$PICBIT_R6 (src.rt.r, src-dope.rz,r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 

PLI$PICCHAR_R6 


Convert Picture to Fixed-Length String 

CALL PLI$PICCHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$PICFIXB_R6 


Convert Picture to Fixed Binary 

CALL PLI$PICFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, 
dest-dope.wz.r) 

PLI$PICFIXD_R6 


Convert Picture to Fixed Decimal 

CALL PLI$PICFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, 
dest-dope.wz.r) 

PLI$PICFLTB_R6 


Convert Picture to Floating Binary 

CALL PLI$PICFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 
dest-dope.wz.r) 

PLI$PICFLTD_R6 


Convert Picture to Floating Decimal 

CALL PLI$PICFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 
dest-dope.wz.r) 

PLI$PICPIC_R6 


Convert Picture to Picture 

CALL PLI$PICPIC_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, dest-dope.wz.r) 

PLI$PICVCHA_R6 


Convert Picture to Variable-Length String 

CALL PLI$PICVCHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$PUTEABIT_R6 

JSB 

Put Edit Aligned Bit String 

PLI$PUTEABIT_R6 (fcb.rz.r, adr.rv.r, prec.rl.v) 

PLI$PUTEBIT_R6 

JSB 

Put Edit Unaligned Bit String 

PLI$PUTEBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 

PLI$PUTECHAR_R6 

)SB 

Put Edit Fixed-Length String 

PLI$PUTECHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

PLI$PUTEFIXB_R6 

JSB 

Put Edit Fixed Binary 

PLI$PUTEFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

PLI$PUTEFIXD_R6 

JSB 

Put Edit Fixed Decimal 

PLI$PUTEFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

PLI$PUTEFLTB_R6 

JSB 

Put Edit Floating Binary 

PLI$PUTEFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

PLI$PUTEFLTD_R6 

JSB 

Put Edit Floating Decimal 

PLI$PUTEFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

PLI$PUTEPIC_R6 

JSB 

Put Edit Picture 

PLI$PUTEPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

PLI$PUTEVCFHA_R6 

JSB 

Put Edit Variable-Length String 

PLI$PUTEVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 
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PLI$PUTFILE_R6 


Put File Parameters 



JSB 

PLI$PUTFILE_R6 (fcb.rz.r, line.rw.v, page.rv.v, skip.rw.r, cancel.rv.v 
format, rz.r) 

PLI$PUTLABIT_R6 

JSB 

Put List Aligned Bit String 

PLI$PUTLABIT_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

PLI$PUTLBIT_R6 

JSB 

Put List Unaligned Bit String 

PLI$PUTLBIT_R6 (fcb.rz.r, adr.rvu.r, prec.rl.v, offset.rw.v) 

PLI$PUTLCHAR_R6 

Put List Fixed-Length String 


JSB 

PLI$PUTLCHAR_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

PLI$PUTLFIXB_R6 

JSB 

Put List Fixed Binary 

PLI$PUTLFIXB_R6 (fcb.rz.r, adr.rl.r, prec.rl.v) 

PLI$PUTLFIXD_R6 

JSB 

Put List Fixed Decimal 

PLI$PUTLFIXD_R6 (fcb.rz.r, adr.rp.r, prec.rl.v) 

PLI$PUTLFLTB_R6 

JSB 

Put List Floating Binary 

PLI$PUTLFLTB_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

PLI$PUTLFLTD_R6 

JSB 

Put List Floating Decimal 

PLI$PUTLFLTD_R6 (fcb.rz.r, adr.rz.r, prec.rl.v) 

PLI$PUTLPIC_R6 

JSB 

Put List Picture 

PLI$PUTLPIC_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

PLI$PUTLVCHA_R6 

Put List Variable-Length String 


JSB 

PLI$PUTLVCHA_R6 (fcb.rz.r, adr.rt.r, prec.rl.v) 

PLI$PUTSTRNG_R6 

Prepare to Perform PL/I Statement, PUT STRING 


JSB 

PLI$PUTSTRNG_R6 (src.rt.r, format.rbu.ra, size.rw.v, type.rw.v) 

PLI$PUT_END_R6 

JSB 

Display Contents of File Buffer 

PLI$PUT_END_R6 (fcb.rz.r) 

PLISREAD 


Read Record 



CALL PLI$READ (fcb.mz.r, type.rv.v, [into.rz.r, into-len.rl.v, 
into-type.rl.v, key.rz.r, key-prec.rl.v, key-type.rl.v, match-gr.rv.r, 
match-greq.rv.r, rec-id.rq.r, rec-id-to.wq.r, fxd-ctrl-len.rl.v, 
fxd-ctrl-type.rl.v|) 

PLISRESIGNAL 


Resignal Condition 

CALL PLISRESIGNAL 

PLISREWIND 


Perform REWIND Function 

CALL PLISREWIND (fcb.mz.r) 

PLI$REWRITE 


Perform REWRITE Statement 



CALL PLISREWRITE (fcb.mz.r, [from.rz.r, from-len.rl.v, from-type.rl. 
key.rz.r, key-size.rl.v, key-type.rl.v, key-num.rbu.r, match-gr.rv.r, 
match-greq.rv.r, rec-id.rq.r, rec-id-to.wq.r, fxd-ctrl.rz.r, 
fxd-ctrl-len.rl.v, fxd-ctrl-type.rl.v]) 

PLI$RT_SUBSCRIP 

JSB 

Signal Uninitialized Entry Reference 

PLI$RT_SUBSCRIP 
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PLISSPACEBLOCK 

Perform SPACEBLOCK Subroutine 

CALL PLISSPACEBLOCK (fcb.mz.r, blocks.rl.v) 

PLI$STOP_PROG 

Signal Finish Condition and Terminate Program Execution 

CALL PLI$STOP_PROG (status.rl.v) 

PLISTIME 

JSB 

Perform TIME Function 

PLISTIME (ret-string.wt.r) 

PLI$VALID_PIC 

Perform VALID Function 

ret-value.wv.v = PLI$VALID_PIC (pic-constant.rz.r, test-size.rv.v, 
test.rt.r) 

PLI$VCHAABIT_R6 

Convert Variable-Length String to Aligned Bit String 

CALL PLI$VCHAABIT_R6 (src.rt.r, src-dope.rz.r, dest.wv.r, 
dest-dope.wz.r) 

PLI$VCHABIT_R6 

Convert Variable-Length String to Unaligned Bit String 

CALL PLI$VCHABIT_R6 (src.rt.r, src-dope.rz.r, dest.wvu.r, 
dest-dope.wz.r, dest-offset.wv.v) 

PLI$VCHACHAR_R6 

Convert Variable-Length String to Fixed-Length String 

CALL PLI$VCHACHAR_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$VCHAFIXB_R6 

Convert Variable-Length String to Fixed Binary 

CALL PLI$VCFMFIXB_R6 (src.rt.r, src-dope.rz.r, dest.wl.r, 
dest-dope.wz.r) 

PLI$VCHAFIXD_R6 

Convert Variable-Length String to Fixed Decimal 

CALL PLI$VCHAFIXD_R6 (src.rt.r, src-dope.rz.r, dest.wp.r, 
dest-dope.wz.r) 

PLI$VCHAFLTB_R6 

Convert Variable-Length String to Floating Binary 

CALL PLI$VCHAFLTB_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 
dest- dope.wz.r) 

PLI$VCHAFLTD_R6 

Convert Variable-Length String to Floating Decimal 

CALL PLI$VCHAFLTD_R6 (src.rt.r, src-dope.rz.r, dest.wz.r, 
dest-dope.wz.r) 

PLI$VCHAPIC_R6 

Convert Variable-Length String to Picture 

CALL PLI$VCHAPIC_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLI$VCHAVCHA_R6 

Convert Variable-Length String to Variable-Length String 

CALL PLI$VCAHVCHA_R6 (src.rt.r, src-dope.rz.r, dest.wt.r, 
dest-dope.wz.r) 

PLISVERIFY 

Perform VERIFY Function 

ret-value.wt.v = PLISVERIFY (srcl.rt.r, srcl-dope.rz.r, src2.rt.r, 
src2-dope.rz.r) 

PLISWRITE 

Perform WRITE Operation 

CALL PLISWRITE (fcb.mz.r, from.rz.r, from-len.rl.v, from-type.rl.v 
[,key.rz.r, key-size.rl.v, key-type.rl.v, fxd-ctrl.rz.r, fxd-ctrl-len.rl.v, 
fxd-ctrl-type.rl.v, rec-id-to.wq.r]) 
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Terminal Screen Functions 


SCR$DOWN_SCROLL 

Down Scroll, Move Cursor up One Line 
ret-status.wlc.v = SCR$DOWN_SCROLL () 

SCR$ERASE_LINE 

Erase Line 

ret-status.wlc.v = SCR$ERASE_LINE ([line-no.rw.v, col-no.rw.v]) 

SCR$ERASE_PAGE 

Erase Page 

ret-status.wlc.v = SCR$ERASE_PAGE ([line-no.rw.v, col-no.rw.v]) 

SCR$GET_SCREEN 

Get Text from Screen 

ret-status.wlc.v = SCR$GET_SCREEN (input-text.wt.dx 
[,prompt-str.rt.dx [,out-len.wwu.r]]) 

SCR$PUT_BUFFER 

Put Current Buffer to Screen or Previous Buffer 
ret-status.wlc.v = SCR$PUT_BUFFER ([old-buffer.rl.r]) 

SCR$PUT_LINE 

Put Text to Screen in Line Mode 

ret-status.wlc.v = SCR$PUT_LINE (text.rt.dx [,line-adv.rw.v, 

[,flags.rw.v]) 

SCR$PUT_SCREEN 

Put Text to Screen 

ret-status.wlc.v = SCR$PUT_SCREEN (text.rt.dx [,line-no.rw.v, 
col-no.rw.v] [,flags.rw.v]) 

SCR$SCREEN_INFO 

Get Screen Information 

ret-status.wlc.v = SCR$SCREEN_INFO (control-block.wl.r) 

SCR$SET_BUFFER 

Set/Clear Buffer Mode 

ret-status.wlc.v = SCR$SET_BUFFER (buffer.mt.ds [,old-buffer.wl.r]) 

SCR$SET_CURSOR 

Set Cursor to Character Position on Screen 

ret-status.wlc.v = SCR$SET_CURSOR (line-no.rw.v, col-no.rw.v) 

SCR$SET_OUTPUT 

Establish Terminal for Output 

ret-status.wlc.v = SCR$SET_OUTPUT (chan.rw.v [,file-spec.rt.dx 
[,user-routine.zem.rp [,user-arg.rl.r [,old-stream.wt.dx]]]] 

SCR$SET_SCROLL 

Establish Scrolling Region 

ret-status.wlc.v = SCR$SET_SCROLL (start-line.rw.v, end-line.rw.v) 

SCR$STOP_OUTPUT 

Stop Output to Terminal or Screen Buffer 
ret-status.wlc.v = SCR$STOP_OUTPUT (chan.rw.v) 

SCR$UP_SCROLL 

Up Scroll, Move Cursor Down One Line 
ret-status.wlc.v = SCR$UP_SCROLL () 

String Procedures 

STRSADD 

Add Two Decimal Strings 

ret-status.wlc.v = STR$ADD (asign.rv.r, aexp.rl.r, adigits.rnu.dx, 
bsign.rv.r, bexp.rl.r, bdigits.rnu.dx, csign.wl.r, cexp.wl.r, 
cdigits.wnu.dx) 
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• 

STR$ANALYZE_SDESC 

JSB 

Analyze String Descriptors 

CALL STR$ANALYZE_SDESC (inp-dsc.rt.dx, len.ww.r, data-adr.wa.r) 
STR$ANALYZE_SDESC_R1 (inp-dsc.rt.dx, len.ww.v, data-adr.wa.v) 


STR$APPEND 


Append String 

ret-status.wlc.v = STR$APPEND (dst-str.wt.dx, src-str.rt.dx) 


STR$COMPARE 


Compare Two Strings 

match.wlu.v = STR$COMPARE (srcl-str.rt.dx, src2-str.rt.dx) 


STR$COMPARE. 

_l 

a 

LU 

Compare Two Strings for Equal 

match.wlu.v = STR$COMPARE_EQL (srcl-str.rt.dx, src2-str.rt.dx) 


STRSCONCAT 


Concatenate Two or More Strings 

ret-status.wlc.v = STR$CONCAT (dst-str.wt.dx, srcl-str.rt.dx, 
src2-str.rt.dx [,src3-str.rt.dx ... ,srcn-str.rt.dx]) 

• 

STR$COPY_DX 

JSB 

Copy Any Class String Passed by Descriptor 

ret-status.wlc.v = STR$COPY_DX (dst-str.wt.dx, src-str.rt.dx) 

ret-status.wlc.v = STR$COPY_DX_R8 (dst-str.wt.dx, src-str.rt.dx) 


STR$COPY_R 

JSB 

Copy Any Class String Passed by Reference 

ret-status.wlc.v = STR$COPY_R (dst-str.wt.dx, src-len.rwu.r, 

src-adr.rt.r) 

ret-status.wlc.v = STR$COPY_R_R8 (dst-str.wt.dx, src-len.rwu.v, 
src-adr.rt.v) 

• 

STR$DIVIDE 


Divide Two Decimal Strings 

ret-status.wlc.v = STR$DIVIDE (asign.rv.r, aexp.rl.r, adigits.rnu.dx, 
bsign.rv.r, bexp.rl.r, bdigits.rnu.dx, tot-digits.rl.r, rnd-trunc.rv.r, 
csign.wl.r, cexp.wl.r, cdigits.wnu.dx) 

• 

STR$DUPL_CHAR 

JSB 

Duplicate Character String 

ret-status.wlc.v = STR$DUPL_CHAR (dst-str.wt.dx [,length.rl.r 
[,char.rbu.r]D 

ret-status.wlc.v = STR$DUPL_CHARR8 (dst-str.wt.dx, length.rl.v, 
char.rbu.v) 


STR$FREE1_DX 

JSB 

Free One Dynamic String 

ret-status.wlc.v = STR$FREE1_DX (dsc-adr.mqu.r) 
ret-status.wlc.v = STR$FREE1_DX_R4 (dsc-adr.mqu.v) 


STR$GET1_DX 

JSB 

Get One Dynamic String 

ret-status.wlc.v = STR$GET1_DX (len.rwu.r, str.mqu.r) 
ret-status.wlc.v = STR$GET1_DX_R4 (len.rwu.v, str.mqu.v) 


STRSLEFT 

JSB 

Extract Substring of String 

ret-status.wlc.v = STR$LEFT (dst-str.wt.dx, src-str.rt.dx, end-pos.rl.r) 
ret-status.wlc.v = STR$LEFT_R8 (dst-str.wt.dx, src-str.rt.dx, 
end-pos.rl.v) 

• 
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STR$LEN_EXTR 

STR$MUL 

STRSPOSITION 

STR$POS_EXTR 

STR$PREFIX 

STRSRECIP 

STRSREPLACE 

STR$RIGHT 

STR$ROUND 


Extract Substring of String 

ret-status.wlc.v = STR$LEN_EXTR (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.r, length.rl.r) 

JSB ret-status.wlc.v = STR$LEN_EXTR_R8 (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.v, length.rl.v) 

Multiply Two Decimal Strings 

ret-status.wlc.v = STRSMUL (asign.rv.r, aexp.rl.r, adigits.rnu.dx, 
bsign.rv.r, bexp.rl.r, bdigits.rnu.dx, csign.wl.r, cexp.wl.r, 
cdigits.wnu.dx) 

Return Relative Position of Substring 

index.wlu.v = STRSPOSITION (src-str.rt.dx, sub-str.rt.dx 

[, start-pos.rl.r]) 

JSB index.wlu.v = STR$POSITION_R6 (src-str.rt.dx, sub-str.rt.dx, 

start-pos.rl.v) 

Extract Substring of String 

ret-status.wlc.v = STR$POS_EXTR (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.r, end-pos.rl.r) 

JSB ret-status.wlc.v = STR$POS_EXTR_R8 (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.v, end-pos.rl.v) 

Prefix String 

ret-status.wlc.v = STRSPREFIX (dst-str.wt.dx, src-str.rt.dx) 
Reciprocal of Decimal String 

ret-status.wlc.v = STRSRECIP (asign.rv.r, aexp.rl.r, adigits.rnu.dx, 
bsign.rv.r, bexp.rl.r, bdigits.rnu.dx, csign.wl.r, cexp.wl.r, 
cdigits.wnu.dx) 

Replace Substring 

ret-status.wlc.v = STRSREPLACE (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.r, end-pos.rl.r, rpl-str.rt.dx) 

JSB ret-status.wlc.v = STR$REPLACE_R8 (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.v, end-pos.rl.v, rpl-str.rt.dx) 

Extract Substring of String 

ret-status.wlc.v = STRSRIGHT (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.r) 

JSB ret-status.wlc.v = STR$RIGHT_R8 (dst-str.wt.dx, src-str.rt.dx, 
start-pos.rl.v) 

Round or Truncate Decimal String 

ret-status.wlc.v = STR$ROUND (places.rl.r, trunc-flg.rv.r, asign.rv. 
aexp.rl.r, adigits.rnu.dx, csign.wl.r, cexp.wl.r, cdigits.wnu.dx) 
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STRSTRAN SLATE 

STRSTRIM 


STRSUPCASE 


Translate Matched Characters 

ret-status.wlc.v = STR$TRANSLATE (dst-str.wt.dx, src-str.rt.dx, 
trans-tbl.rt.dx, match-str.rt.dx) 

Trim Trailing Blanks and Tabs 

ret-status.wlc.v = STRSTRIM (dst-str.wt.dx, src-str.rt.dx 
[,out-len.wwu.r]) 

Convert to Uppercase 

ret-status.wlc.v = STRSUPCASE (dst-str.wt.dx, src-str.rt.dx) 
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Index 


A 

ACCEPT statement 
COB$ACCEPT, COB-13 
Access types. See Parameter access types 
Add 

CIT data type, COB$ADDI, COB-34 
Add matrices, BAS—68 
Add numeric strings 
BAS$SUM, BAS—51 
ADVANCING clause 
control bytes, COB-8t 
ALLOCATE statement, PLI-74 
Allocate virtual memory 
PLI$ALOCHEEP, PLI-74 
ALPHABET clause, COB-53 
AND operation 

PLI$ANDBIT, PLI-36 
ANYCONDITION condition, PLI-7 
Argument types 

INQUIRE keywords, FOR-23, FOR-24t 
OPEN keywords, FOR-20, FOR-21t 
Arguments 

actual, BAS—12, FOR-3 
dummy, FOR—3 

Arithmetic operations, COB-3, PLI—4 
Arithmetic procedures, COB-34 to COB-41, 
PLI—65 to PLI—66 

COBOL intermediate temporary, COB-34 to 
COB—40 

quadword, COB-41 
$ARRAY, PSECT, BAS-5 
Array descriptors 

initialization, FOR-35 
nth-dimensional, FOR-35 
one-dimensional, FOR-35 
support procedures, FOR—35 
two-dimensional, FOR-35 
Arrays, passing, BAS—1 3 
Atomic data types 

BASIC support, GEN-5t 
COBOL support, GEN-9t 
FORTRAN support, GEN-1 3t 
PL/I support, GEN-1 7t 
Auxiliary I/O support, COB—2 

B 

Backspace 

FOR$BACKSPACE, FOR-8 


BAS$BUFSIZ, BAS—38 
BAS$CANTYPAHEAD, BAS-40 
BAS$CCPOS, BAS-40 
BAS$CHANGE_NA_S, BAS-43 
BAS$CHANGE_S_NA, BAS-50 
BAS$CHR, BAS—44 
BAS$CLOSE, BAS—37 
BAS$CMPx_APP, BAS—57 
BAS$COMP, BAS—57 
BAS$COMPARE, BAS-57 
BAS$CTRLC, BAS-40 
BAS$CTRLO, BAS—42 
BAS$CVT_D_S, BAS—79 
BAS$CVT_F_S, BAS—79 
BAS$CVT_OUT—D_E, BAS-44 
BAS$CVT_OUT—D_F, BAS-46 
BAS$CVT_OUT_D_G, BAS-45 
BAS$CVT_OUT_F_E, BAS-44 
BAS$CVT_OUT_F_F, BAS-46 
BAS$CVT_S_D, BAS—79 
BAS$CVT_S_F, BAS—79 
BAS$CVT_S_W, BAS—79 
BAS$CVT_W_S, BAS—79 
BAS$DATE_T, BAS-64 
BAS$DELETE, BAS-20 
BAS$DET_D, BAS—75 
BAS$DET_F, BAS—75 
BAS$DIF, BAS-51 
BAS$DSCALE_D_R1, BAS-75 
BAS$ECHO, BAS—41 
BAS$EDIT, BAS—48 
BAS$END_DEF_R8, BAS-63 
BAS$END_DFS_R8, BAS-85 
BAS$END_GSB_R8, BAS-64 
BAS$END_R8, BAS-63 
BAS$FETCH_BFA, BAS-30 
BAS$FET_FA_x_R8, BAS-30 
BAS$FIELD_CLEAR, BAS-80 
BAS$FIELD_CLOSE, BAS-80 
BAS$FIELD_COPY, BAS-80 
BAS$FIELD_COP_R, BAS-80 
BAS$FIELD-OPEN, BAS-80 
BAS$FIELD_PURGE, BAS-80 
BAS$FIELD_SET, BAS-80 
BAS$FIELD_VAR, BAS-81 
BAS$FIND, BAS—19 
BAS$FIND_KEY, BAS-21 
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BAS$FIND_RECORD, BAS-21 
BAS$FORMAT_D, BAS-47 
BAS$FORMAT_F, BAS-47 
BAS$FREE, BAS—37 
BAS$FSP, BAS—38 
BAS$GET, BAS—19 
BAS$GET_KEY, BAS-21 
BAS$GET_RECORD, BAS-21 
BAS$HANDLER, BAS-14, GEN-54 
BAS$INIT_C_GSB, BAS-11, BAS-59 
BAS$INIT—DEF_ R8, BAS-60 
BAS$INIT—DFS_ R8, BAS-84 
BAS$INIT_GOSUB, BAS-60 
BAS$INIT_IOL, BAS—61 
BAS$INIT_ONERR, BAS-62 
BAS$INIT_R8, BAS—61 
BASSINPUT, BAS—23 
BAS$INPUT_LINE, BAS-23 
BASSINSTR, BAS—55 
BAS$IN_d_R, input number, BAS—24 
BAS$IN_MAT, input matrix, BAS—27 
BAS$IN_T_DX, input text, BAS-25 
BAS$IO_END, I/O list termination call, 

BAS—29 

BAS$KILL, BAS—66 
BAS$LEFT, BAS—53 
BAS$LINPUT, BAS-23 
BAS$MAT_ADD, BAS-68 
BAS$MAT_ASSIGN, BAS-69 
BAS$MAT_IDN, BAS-69 
BAS$MAT_INIT, BAS-70 
BAS$MAT_INPUT, BAS-23 
BAS$MAT_INV, BAS-70 
BAS$MAT_LINPUT, BAS-23 
BAS$MAT_MUL, BAS-71 
BAS$MAT_NULL, BAS-72 
BAS$MAT_PRINT, BAS-23 
BAS$MAT_ READ, BAS-32 
BAS$MAT_REDIM, BAS-72 
BAS$MAT_SCA_MUL, BAS-73 
BAS$MAT_SUB, BAS-74 
BAS$MAT_TRN, BAS-74 
BASSNOECHO, BAS-41 

BAS$NUM, number of matrix elements, BAS—28 
BAS$NUM2, number of elements in last row, 
BAS—28 

BASSOPEN, BAS—34 

BAS$OUT_d_m_f, output number, BAS—26 
BAS$OUT_MAT_f, output matrix, BAS—28 
BAS$OUT_T_DX_f, output text, BAS-27 
BAS$PLACE, BAS—51 
BAS$POS, BAS—55 
BAS$POWDD, BAS—56 


BAS$POWDJ, BAS—56 

BASSPOWII, BAS—56 

BAS$POWJJ, BAS—56 

BAS$POWRJ, BAS—56 

BASSPOWRR, BAS—56 

BASSPRINT, BAS-23 

BAS$PRINT_USING, BAS-23 

BAS$PROD, BAS—51 

BAS$PUT, BAS—20 

BAS$PUT_COUNT, BAS-20 

BAS$PUT_RECORD, BAS-21 

BAS$PUT_REC_CNT, BAS-21 

BASSQUO, BAS—51 

BAS$RAD, BAS—48 

BAS$RAN DOMIZE, BAS-66 

BAS$RCTRLC, BAS-40 

BAS$RCTRLO, BAS-42 

BAS$READ, BAS-32 

BAS$RESTART_IO, BAS-1 7 

BAS$RESTORE, BAS-20, BAS-21 

BASS RESTORE—DAT, BAS-33 

BASS RESTORE—KEY, BAS-21 

BASSRESUME, BAS-16 

BAS$RESUME_Z, BAS-16 

BASSRIGHT, BAS—53 

BAS$RND_F_R1, BAS-67 

BASSRSET, BAS—52 

BAS$RSET_R, BAS-52 

BASSRUN—INIT, BAS-66 

BASSSCALE—D_R1, BAS-76 

BASSSCRATCH, BAS-20 

BASSSEG, BAS—53 

BASSSLEEP, BAS-41 

BASSSTATUS, BAS-39 

BAS$STORE_BFA, BAS-30 

BASSSTO—FA_RDX, BAS-30 

BASSSTO—FA_x_R8, BAS-30 

BASSSTRING, BAS-54 

BAS$STR_D, BAS-47 

BAS$STR_F, BAS-47 

BASSSTR-L, BAS-47 

BASSSUM, BAS—51 

BASSSYS, BAS—82 

BASSTAB, BAS-54 

BAS$TIME_F, BAS—65 

BAS$TIME_T, BAS—65 

BASSTRM, BAS—49 

BASSUNLOCK, BAS-37 

BASSUPDATE, BAS-20, BAS-21 

BAS$UPDATE_COUN, BAS-20, BAS-21 

BAS$VAL_D, BAS—50 

BAS$VAL_F, BAS—50 

BASSVAI_L, BAS—50 
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BAS$WAIT, BAS—42 
BASIC compiled code 
memory layout, BAS—3 
Bit clear 

bit operations, FOR—37 
Bit move 

bit operations, FOR—37 
Bit operations 

bit clear, FOR$xlBCLR, FOR-37 
bit move, FOR$xMVBITS, FOR-37 
bit set, FOR$xlBSET, FOR-37 
bit shift, FOR$xlSHFTC, FOR-37 
bit test, FOR$BxTEST, FOR-37 
MIL—STD 1753 functions, FOR-37 
return a subfield, FOR$xlBITS, FOR—37 
Bit set 

bit operations, FOR—37 
Bit shift 

bit operations, FOR—37 
Bit test 

bit operations, FOR—37 
$BLANK, PSECT, FOR-2 
Block I/O files, BAS-29 
BOOL built-in function 
PLI$BOOLBIT, PLI-37 
Boolean operation 

PLI$BOOLBIT, PLI-37 
BSF$A_USER_HAND, BAS-3, BAS-15 
Build DEF* statement frame 
BAS$INIT_DFS_R8, BAS-84 
Built-in subroutines 

File-handling, PLI-31 to PLI-34 
BY DESC, BAS—12 
BY REF, BAS—12 


C 

CALL statement, FOR—3 
COB$CALL, COB-43 
Calling 

PL/I procedures, PLI—6 
user procedures, BAS—14 
Calling sequence, FOR—3 
condition handlers, BAS—12 
DEF functions, BAS—10 
DEF* functions, BAS—84 
external functions, BAS—9 
GOSUB routines, BAS—10 
immediate on-line routines, BAS—12 
main programs, BAS—9 
subprograms, BAS—9 
CANCEL statement 

COB$CANCEL, COB-44 


Character string 

manipulation procedures, PLI—42 to PLI—44 
Check file integrity 
PLI$FLUSH, PLI—32 
Check range of subscript 

PLI$BOUND_CHECK, PLI—71 
CHF, VAX—11 Condition Handling Facility, 
BAS—14 
Class test table 
COBOL, COB-63 
CLOSE statement, PLI—13 
BAS$CLOSE, BAS—37 
FOR$CLOSE, FOR—23 
$CLOSE, system service, COB—10 
COB$AB_SPANC, COB-64 
COB$ACCEPT, COB-1 3 
COB$ACC_DATE, COB-44 
COB$ACC_DAY, COB^14 
COB$ACC_DAYWEEK, COB-45 
COB$ACC_TIME, COB-45 
COB$ADDI, COB-34 
COB$CALL, COB-43 
COB$CANCEL, COB-44 
COB$CMPI, COB—40 
COB$CNVOUT, COB-28 
COB$CVTDI_R8, COB-24 
COB$CVTDP_R9, COB-31 
COB$CVTDQ_R8, COB-31 
COB$CVTFI_R8, COB-24 
COB$CVTFP_R9, COB-30 
COB$CVTFQ_R8, COB-30 
COB$CVTID_R7, COB-26 
COB$CVTIF_R7, COB-26 

COB$CVTII_R8, COB-26 

COB$CVTIP_R9, COB-27 
COB$CVTIQ_R8, COB-26 
COB$CVTIW_R8, COB-26 
COB$CVTLI_R8, COB-24 
COB$CVTPD_R9, COB-33 
COB$CVTPF_R9, COB-33 
COB$CVTPI_R8, COB-24 
COB$CVTPQ_R9, COB-33 
COB$CVTQD_R8, COB-29 
COB$CVTQF_R8, COB-29 
COB$CVTQI_R8, COB-24 
COB$CVTQP_R9, COB-29 
COB$CVTRDP_R9, COB-32 
COB$CVTRDQ_R8, COB-31 
COB$CVTRFP_R9, COB-30 
COB$CVTRFQ_R8, COB-30 

COB$CVTRII_R8, COB-26 

COB$CVTRIP_R9, COB-27 
COB$CVTRIQ_R8, COB-26 
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COB$CVTRIW_R8, COB-26 
COB$CVTRPQ_R9, COB-33 
COB$CVTRQP_R9, COB-29 
COB$CVTTI_R8, COB-24 
COB$CVTWI_R8, COB-24 
COB$DBEXCEPTION, COB-47, COB-49 
COB$DEEDIT, COB-65 
COB$DISPLAY, COB-14 
COB$DISPLAY—NO—ADV, COB-15 
COB$DIVI, COB-37 
COB$DIVI_OSE, COB-38 
COB$DIVQ_R8, COB-41 
COB$ERROR, COB-45, COB-46 
COB$EXPI, COB-38 
COB$EXPI_OSE, COB-39 
COB$HANDLER, COB-45, COB-47, GEN-55, 
GEN-57 

COB$INIT_LINAGE, COB-9 
COB$INPUT 

default device name, COB—13 
COB$IOEXCEPTION, COB-45, COB-47, 
COB-48 

COB$LINAGE, COB-10 
COB$MULI, COB-36 
COB$MULQ_R8, COB-41 
COB$OUTPUT, COB-15 
COB$PAUSE, COB-52 
COB$SET_SWITCH, COB-51 
COB$SUBI, COB-35 
COB$SWITCH, COB-51 
COB$TERM_LINAGE, COB-10 
COB$_INVDECDAT, COB-46 
COBOL class test table, COB-63 
COBOL compiled code 
support procedures, COB—1 
$CODE, PSECT, BAS—4, FOR-2 
CODE-SET clause, COB-53 
Coding 

user procedures, BAS-12 
COM/MAP, PSECT, BAS-5 
Compare 

bit strings, PLI$CMPBIT, PLI-40 
CIT data type, COB$CMPI, COB-40 
Compare approximate 

BAS$CMPx_APP, BAS—57 
Compare strings, FOR—38 

exact, BAS$COMPARE, BAS-57 
numeric, BAS$COMP, BAS—57 
Compatibility procedures, BAS—79 to BAS—85 
Compiled-code support, PLI—4 

miscellaneous, FOR—41 to FOR—44 
Compiled-code support procedures, BAS—59 to 
BAS—77, COB-3, COB-43 to COB-52, 
FOR—35 to FOR—44, PLI-67 to PLI-76 


Computed GOSUB statement 
BAS$INIT_C_GSB, BAS-59 
Concatenate bit strings 
PLI$CATBIT, PLI-40 

Condition handler, BAS-7, FOR-3, PLI-68 to 
PLI—69 

COB$HANDLER, COB-45 

COBOL default, COB$HANDLER, COB-47 

default, FOR-3 

error actions, GEN—53 

initializing, BAS—1 6 

PL/I ON-unit, PLI—7, PLI—8 

PLI$CND_HND, PLI-68 

PLI$DEF_HND, PLI-68 

PLI$IO_ERROR, PLI—69 

returning from, BAS—16 

underflow exception, 

FOR$UNDERFLOW_HANDLER, FOR-40 
Condition handlers, COB—4 
Condition handling, COB-3, COB-45 to 
COB—50 

default PL/I, PLI—9 to PLI—10 
PL/I built-in functions for, PLI—69 to PLI—71 
PL/I built-in subroutines for, PLI-69 to PLI—71 
in PL/I, PLI—4, PLI-68 to PLI—73 
Condition signal, FOR—3 
Condition symbol, FOR—3 
Condition value, FOR-3, GEN-56 
SS$_RESIGNAL, GEN-57 
SS$_UNWIND, GEN-58 
Conditions 

ANYCONDITION, PLI—7, PLI—9 
ENDFILE, PLI—7 
ENDPAGE, PLI—7, PLI—9 
ERROR, PLI—7, PLI—9 
FINISH, PLI—8, PLI—9 
FIXEDOVERFLOW, PLI—7 
KEY, PLI—7 
OVERFLOW, PLI—7 
UNDEFINEDFILE, PLI—7 
UNDERFLOW, PLI—7 
VAXCONDITION, PLI—8 
ZERODIVIDE, PLI—7 
$CONNECT, FOR—1 9 
Context block 

COB$INIT_LINAGE, COB-9 
COB$LINAGE, COB-10 
COB$TERM_LINAGE, COB-11 
LINAGE clause, COB-7 
Control block, FOR—6, FOR—19 
Control blocks 
RMS, PLI—12 
Control bytes 

ADVANCING clause, COB-8t 
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Control procedures, PLI-4 
Conventions. See naming conventions 
Conversion from CIT 
register usage, COB—27t 
Conversion from D_floating 
register usage, COB-32t 
Conversion from F_floating 
register usage, COB-3 It 
Conversion from packed decimal 
register usage, COB-33t 
Conversion from quadword 
register usage, COB—30t 
Conversion to CIT 

register usage, COB-25t 
Conversion using CIT, COB-24 to COB-28 
Convert aligned bit string 

to aligned bit string, PLI$ABITABIT_R6, 
PLI-64 

to fixed binary, PLI$ABITFIXB_R6, PLI-50 
to fixed character string, PL!$ABITCHAR_R6, 
PLI-59 

to fixed decimal, PLI$ABITFIXD_R6, PLI-50 
to floating binary, PLI$ABITFLTB_R6, PLI—50 
to floating decimal, PLI$ABITFLTD_R6, 
PLI-50 

to picture, PLI$ABITPIC_R6, PLI-54 
to unaligned bit string, PLI$ABITBIT_R6, 
PLI-64 

to varying character string, 
PLI$ABITVCHA_R6, PLI-59 
Convert arithmetic 

to arithmetic, PLI-47 to PLI—48 
to bit string, PLI—61 to PLI-62 
Convert array 

numbers to string, BAS$CF1ANGE_NA_S, 
BAS—43 
Convert ASCII 
to EBCDIC, COB-53 
Convert bit string 

to arithmetic, PLI-49 to PLI—51 
to bit string, PLI-64 
to character string, PLI-59 to PLI-60 
to floating binary, PLI$BITFLTB_R6, 

PLI-50 
Convert byte 

to character, BAS$CHR, BAS—44 
Convert character string 

to arithmetic, PLI—51 to PLI—52 
to bit string, PLI-63 to PLI-64 
to character string, PLI—60 
Convert CIT, COB-26 to COB-28 

to D_floating, COB$CVTID_R7, COB-26 
to F_floating, COB$CVTIF_R7, COB-26 
to longword, COB$CVTII_R8, COB-26 


Convert CIT (Cont.) 

to longword rounded, COB$CVTRII_R8, 

COB-26 

to packed decimal, COB$CVTIP_R9, COB-27 
to packed decimal rounded, 

COB$CVTRIP_R9, COB-27 
to quadword, COB$CVTIQ_R8, COB-26 
to quadword rounded, COB$CVTRIQ_R8, 
COB-26 

to word, COB$CVTIW_R8, COB-26 
to word rounded, COB$CVTRIW_R8, COB-26 
Convert D_floating 

to CIT, COB$CVTDI_R8, COB-24 
to E- or F-format, BAS$CVT_OUT_D_G, 
BAS-45 

to packed decimal, COB$CVTDP_R9, 

COB-31 

to packed decimal rounded, 
COB$CVTRDP_R9, COB-32 
to quadword, COB$CVTDQ_R8, COB-31 
to quadword rounded, COB$CVTRDQ_R8, 
COB-31 

Convert EBCDIC 
to ASCII, COB-53 
Convert fixed binary 

to aligned bit string, PLI$FIXBABIT_R6, 

PLI-62 

to fixed binary, PLI$FIXBFIXB_R6, PLI-47 
to fixed character string, PLI$FIXBCHAR_R6, 
PLI—56 

to fixed decimal, PLI$FIXBFIXD_R6, PLI-47 
to floating binary, PLI$FIXBFLTB_R6, PLI-47 
to floating decimal, PLI$FIXBFLTD_R6, 

PLI—48 

to picture, PLI$FIXBPIC_R6, PLI-54 
to unaligned bit string, PLI$FIXBBIT_R6, 

PLI—61 

to varying character string, 

PLI$FIXBVCHA_R6, PLI—56 

Convert fixed character string 

to aligned bit string, PLI$CHARABIT_R6, 
PLI-64 

to fixed binary, PLI$CHARFIXB_R6, PLI—51 
to fixed character string, PLI$CF1ARCF1AR_R6, 
PLI-60 

to fixed decimal, PLI$CHARFIXD_R6, PLI—51 
to floating binary, PLI$CFHARFLTB_R6, 

PLI—51 

to floating decimal, PLI$CHARFLTD_R6, 

PLI—51 

to picture, PLI$CHARPIC_R6, PLI-54 
to unaligned bit string, PLI$CHARBIT_R6, 
PLI-63 


Index—5 




Convert fixed character string (Cont.) 
to varying character string, 

PLI$CHARVCHA_R6, PLI-60 
Convert fixed decimal 

to aligned bit string, PLI$FIXDABIT_R6, 

PLI-62 

to fixed binary, PLI$FIXDFIXB_R6, PLI-47 
to fixed character string, PLI$FIXDCHAR_R6, 
PLI-56 

to fixed decimal, PLI$FIXDFIXD_R6, PLI-47 
to floating binary, PLI$FIXDFLTB_R6, 

PLI-47 

to floating decimal, PLI$FIXDFLTD_R6, 

PLI—48 

to picture, PLI$CVT_TO_PIC, PLI—52 
to picture, PLI$FIXDPIC_R6, PLI-54 
to picture, PLI—52 

to unaligned bit string, PLl$FIXDB!T_R6, 

PLI—61 

to varying character string, 
PLI$FIXDVCHA_R6, PLI-56 
Convert fixed-point 

to character string, PLI—55 to PLI—57 
Convert floating 

to character string, PLI-57 to PLI-58 
to E-format, BAS$CVT_OUT_x_E, BAS-44 
to E-format, COB$CNVOUT, COB-28 
to F-format, BAS$CVT_OUT_x_F, BAS-46 
to formatted string, BAS$FORMAT_x, BAS—47 
Convert floating binary 

to aligned bit string, PLI$FLTBABIT_R6, 

PLI-62 

to fixed binary, PLI$FLTBFIXB_R6, PLI-47 
to fixed character string, PLI$FLTBCHAR_R6, 
PLI-58 

to fixed decimal, PLI$FLTBFIXD_R6, PLI-47 
to floating binary, PLI$FLTBFLTB_R6, 

PLI—48 

to floating decimal, PLI$FLTBFLTD_R6, 

PLI—48 

to picture, PLI$FLTBPIC_R6, PLI-54 
to unaligned bit string, PLI$FLTBBIT_R6, 
PLI-62 

to varying character string, 
PLI$FLTBVCHA_R6, PLI-58 
Convert floating decimal 

to aligned bit string, PLI$FLTDABIT_R6, 
PLI-62 

to fixed binary, PLI$FLTDFIXB_R6, PLI-47 
to fixed character string, PLI$FLTDCHAR_R6, 
PLI-58 

to fixed decimal, PLI$FLTDFIXD_R6, PLI-48 
to floating binary, PLI$FLTDFLTB_R6, 

PLI-48 


Convert floating decimal (Cont.) 

to floating decimal, PLI$FLTDFLTD_R6, 
PLI-48 

to picture, PLI$FLTDPIC_R6, PLI-54 
to unaligned bit string, PLI$FLTDBIT_R6, 
PLI-62 

to varying character string, 

PLI$FLTDVCHA_R6, PLI-58 
Convert floating-point to text 
FOR$CVT_x_Ty, FOR-32 
Convert F_fbating 

to CIT, COB$CVTFI_R8, COB-24 
to packed decimal, COB$CVTFP_R9, 

COB—30 

to packed decimal rounded, 
COB$CVTRFP_R9, COB-30 

to quadword, COB$CVTFQ_R8, COB-30 
to quadword roundstring, 

PLI$VCHAVCHA_R6, COB-30 

Convert leading separate 
to packed decimal, COB^t6 
Convert longword 

to CIT, COB$CVTLI_R8, COB-24 
Convert number 

to numeric string, BAS$STR_X, BAS-47 
Convert numeric string 

to number, , BAS$VAI_x, BAS—50 

Convert packed decimal 
to CIT, COB$CVTPI_R8, COB-24 
to D_floating, COB$CVTPD_R9, COB-33 
to F_fbating, COB$CVTPF_R9, COB-33 
to picture, PLI$CVT_TO_PIC, PLI—53 
to quadword, COB$CVTPQ_R9, COB-33 
to quadword rounded, COB$CVTRPQ_R9, 
COB-33 
Convert picture 

to aligned bit string, PLI$PICABIT_R6, 

PLI—63 

to arithmetic, PLI-49 
to bit string, PLI-62 
to character string, PLI—58 
to fixed binary, PLI$PICFIXB_R6, PLI-49 
to fixed character string, PLI$PICCHAR_R6, 
PLI-58 

to fixed decimal, PLI$CVT_FR_PIC, PLI—53 
to fixed decimal, PLI$PICFIXD_R6, PLI-49 
to floating binary, PLI$PICFLTB_R6, PLI-49 
to floating decimal, PLI$PICFLTD_R6, 

PLI-49 

to packed decimal, PLI$CVT_FR_PIC, PLI—53 
to picture, PLI$PICPIC_R6, PLI-54 
to unaligned bit string, PLI$PICBIT_R6, 

PLI—63 
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Convert picture (Cont.) 

to varying character string, PLI$PICVCHA_R6, 
PLI-59 

Convert quadword 

to CIT, COB$CVTQI_R8, COB-24 
to D_floating, COB$CVTQD_R8, COB-29 
to F_floating, COB$CVTQF_R8, COB-29 
to packed decimal, COB$CVTQP_R9, 
COB-29 

to packed decimal rounded, 
COB$CVTRQP_R9, COB-29 
Convert string 

to array of numbers, BAS$CFHANGE_S_NA, 
BAS—50 
Convert text 

to CIT, COB$CVTTI_R8, COB-24 
Convert to arithmetic, PLI—46 to PLI—52 
Convert to bit string, PLI—61 to PLI-65 
Convert to character string, PLI—55 to PLI—61 
Convert to CIT, COB—24 to COB—25 
Convert to picture, PLI—52 to PLI—55 
Convert trailing numeric 

to packed decimal, COB—46 
Convert unaligned bit string 

to aligned bit string, PLI$BITABIT_R6, 

PLI—64 

to fixed binary, PLI$BITFIXB_R6, PLI-49 
to fixed character string, PLI$BITCHAR_R6, 
PLI-59 

to fixed decimal, PLI$BITFIXD_R6, PLI—50 
to floating decimal, PLI$BITFLTD_R6, PLI-50 
to picture, PLI$BITPIC_R6, PLI—54 
to unaligned bit string, PLI$BITBIT_R6, 

PLI—64 

to varying character string, PLI$BITVCHA_R6, 
PLI-59 

Convert varying character string 

to aligned bit string, PLI$VCHAABIT_R6, 

PLI—64 

to fixed binary, PL»$VCHAFIXB_R6, PLI—51 
to fixed character string, 

PLI$VCHACHAR_R6, PLI-60 
to fixed decimal, PLI$VCHAFIXD_R6, PLI—51 
to floating binary, PLI$VCF1AFLTB_R6, 

PLI—51 

to floating decimal, PLI$VCFHAFLTD_R6, 

PLI—51 

to picture, PLI$VCHAPIC_R6, PLI-54 
to unaligned bit string, PLI$VCHABIT_R6, 

PLI—64 

to varying character string, 

PLI$VCHAVCHA_R6, PLI-60 
Convert word 

to 3-character string, BAS$RAD, BAS—48 


Convert word (Cont.) 

to CIT, COB$CVTWI_R8, COB-24 
Copy any class string 

by descriptor, BAS$RSET, BAS—52 
by reference, BAS$RSET_R, BAS-52 
Copy matrices, BAS—69 
CTRL/C Traps 

disable, BAS$RCTRLC, BAS-40 
enable, BAS$CTRLC, BAS-40 
Cursor position 

BAS$CCPOS, BAS-40 
CVT functions, RSTS 
BAS$CVT_x_y, BAS-79 
CVTSP, machine instruction, COB—46 
CVTTP, machine instruction, COB—46 

D 

Data base access errors 
COBOL handling, COB$DBEXCEPTION, 
COB-49 

Data forms. See parameter data forms 
Data pointer, BAS—32 
Data pool, BAS-32 
DATA statement, BAS-32 
Data type conversion, COB—3 
Data type conversion routines 
parameters for PL/I, PLI—46t 
Data types, COB-4, GEN-1, BAS-22. See 
also parameter data types 
abbreviations for PL/I, PLI—3t 
atomic, BASIC support, GEN-5t 
atomic, COBOL support, GEN-9t 
atomic, FORTRAN support, GEN—1 3t 
atomic, PL/I support, GEN-1 7t 
conversion of COBOL, COB-17 to COB-33 
conversion of PL/I, PLI—3, PLI-45 to 
PLI-65 

conversion procedures, COB-21 to COB-33 
conversion using CIT, COB-24 to COB-28 
conversion using floating-point, 

COB-28 to COB-33 
conversion using integers, COB-28 to 
COB-33 

conversion using packed decimal, 

COB-28 to COB-33 
language support, GEN-4t 
other, BASIC support, GEN—8t 
other, COBOL support, GEN—1 2t 
other, FORTRAN support, GEN—1 6t 
other, PL/I support, GEN—211 
parameter passing mechanisms, GEN—3 
passed in arrays, GEN-22 to GEN-25 
passed in arrays, BASIC, GEN-22t 
passed in arrays, COBOL, GEN-22t 
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Data types (Cont.) 

passed in arrays, FORTRAN, GEN-23t 
passed in arrays, PL/I, GEN-24t 
scaled data items, COB-20t 
string, BASIC support, GEN-7t 
string, COBOL support, GEN-1 It 
string, FORTRAN support, GEN-1 5t 
string, PL/I support, GEN-1 9t 
supported by BASIC, BAS-1 
supported by COBOL, COB-1 7 
supported by FORTRAN, FOR-1 
supported by PL/I, PLI-45 
unsealed data items, COB-18t 
USAGE clause, COB-18 
valid conversions, COB-2 It 
Date/time utilities, COB-44, PLI-5, PLI-73 
Decimal width 
format code, FOR-29 
DEF functions, BAS-7 
DEF statement 

BAS$END_DEF_R8, BAS-63 
BAS$INIT_DEF_R8, BAS-60 
DEF* functions 
calling sequence, BAS—84 
DEF* statement, BAS-84 
Default formats 
format code, FOR-30 
Delete a file 
BAS$KILL, BAS—66 
Delete current record 
BAS$DELETE, BAS-20 
FOR$DELETE, FOR-12 
FOR$DELETE_D, FOR-1 5 
Delete record 

PLI$DELETE, PLI-29 
DELETE statement 
PLI$DELETE, PLI-29 
Descale a D_floating value 
BAS$DSCALE_D_R1, BAS-75 
Determinant retrieval 
BAS$DET_x, BAS-75 
Direct I/O 
formatted, FOR—1 5 
unformatted, FOR-1 6 

Direct I/O procedures, FOR—14 to FOR—16 
DISPLAY built-in subroutine 
PLI$DISPLAY, PLI-31 
Display contents of buffer, PLI—25 
Display file attributes 
PLI$DISPLAY, PLI-31 
DISPLAY statement 
COB$DISPLAY, COB-14 
Divide 

CIT data type, COB$DIVI, COB—37 


Divide (Cont.) 

CIT data type, on size error, COB$DIVI_OSE, 
COB-38 

packed decimal, PLI$DIV_PK_LONG, 

PLI—65 

packed decimal, PLI$DIV_PK_SF10RT, 

PLI—65 

quadwords, COB$DIVQ_R8, COB-41 
Divide numeric strings 
BAS$QUO, BAS—51 
Dope vector, PL/I, PLI-36, PLI-42 
Dynamic allocation of virtual memory, PLI-74 

E 

EBCDIC code, COB-53 
Echoing. 

disable, BAS$NOECHO, BAS-41 
enable, BAS$ECHO, BAS-41 
Edit string 

BAS$EDIT, BAS—48 
Element transmission calls 
I/O list, BAS—22, FOR—8 
input number, BAS—24 
input text, BAS-25 
output number, BAS—26 
output text, BAS—27 
End-of-file record 

BAS$SCRATCH, BAS-20 
FOR$ENDFILE, FOR-8 
END specifier, GEN—55 
ENDFILE condition, PLI—7 
ENDPAGE condition, PLI—7, PLI—9 
Entry point name, FOR-3 
ERR specifier, GEN-55 
Error actions 

in BASIC, GEN-54 
in COBOL, GEN-55 
in FORTRAN, GEN-55 
in PL/I, GEN-55 
resignaling, COB-46, GEN-53 
signaling, GEN-53 
unwinding, GEN—54 
ERROR condition, PLI—7, PLI—9 
Error conditions 
ANYCONDITION, PLI—7 
ENDFILE, PLI—7 
ENDPAGE, PLI—7, PLI—9 
ERROR, PLI—7, PLI—9 
FIXEDOVERFLOW, PLI—7 
KEY, PLI—7 
OVERFLOW, PLI—7 
UNDEFINEDFILE, PLI—7 
UNDERFLOW, PLI—7 
ZERODIVIDE, PLI—7 
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Error handling, COB-45 to COB-50 
Error messages 

for PL/I I/O procedures, PLI—11 
Error signaling, BAS-14, FOR-3, PLI—7, 

PLI—68 to PLI—73 
run-time, COB$ERROR, COB—45 
Example 

I/O statements, BAS-22, FOR-6 
PL/I calling COBOL, COB-4 
$EXIT, system service, PLI—8 
Exponential width 
format code, FOR-29 
Exponentiate 

CIT data type, COB$EXPI, COB-38 
CIT data type, on size error, COB$EXPI_OSE, 
COB-39 

Exponentiation procedures, BAS—56 
EXTEND built-in subroutine 
PLI$EXTEND, PLI—32 
Extend disk allocation 
PLI$EXTEND, PLI—32 
Extended attribute block, XAB, GEN-43 
EXTERNAL attribute, PLI—6 
External function, BAS—7 
External procedures, PLI—6 
External switches, COB-51 
Extract a substring 
BAS$SEG, BAS—53 

F 

FAB, GEN-50 

fields set by OPEN, GEN-44t to GEN-47t 
FAB, file access block, GEN-43 
Facility symbols. See facility names 
FCD, frame control data, BAS-6 
Fetch array element 

BAS$FETCH_BFA, BAS-30 
Fetch array number 

BAS$FET_FA_x_R8, BAS-30 
FIELD functions, RSTS 
BAS$FIELD_xxxxx, BAS—80 
Field width 
format code, FOR-28 
File access block, FAB, GEN-43 
File attributes, information 
BAS$FSP, BAS—38 
File characteristics 

RMS file structure, GEN—27 
File-handling built-in subroutines, 

PLI—31 to PLI—34 
File-handling services 
VAX-11 RMS, PLI—31 to PLI-34 
File I/O operations, BAS-19, FOR-5, 

PLI—14 to PLI—30 


File I/O operations (Cont.) 

Record I/O, PLI—25 to PLI-30 
Stream I/O, PLI—14 to PLI-25 
File name 

default, FOR—7t 
File organization, information 
BAS$FSP, BAS—38 
File organizations 

BASIC support, GEN-31 
COBOL support, GEN-33 
FORTRAN support, GEN-34 
PL/I support, GEN-36 
RMS file structure, GEN—28 
File processing support, COB—2, COB—7 to 
COB-11, PLI—2, PLI—11 to PLI-30 
File status procedures, BAS-37 to BAS-39 
Files 

block I/O, BAS—29 
virtual array, BAS-29 
Find indexed record 

BAS$FIND_KEY, BAS-21 
Find record 

BAS$FIND, BAS-19 
Find relative record 

BAS$FIND_RECORD, BAS-20 
FINISH condition, PLI—8, PLI—9 
FIXEDOVERFLOW condition, PLI—7, PLI—47 
FLUSH built-in subroutine 
PLI$FLUSH, PLI—32 
FOR$BACKSPACE, FOR-8 
FOR$BxTEST, FOR-37 
FOR$CLOSE, FOR—23 
FOR$CVT_x_Ty, FOR-32 
FOR$DATE, FOR—41 
FOR$DATE_T_DS, FOR-41 
FOR$DELETE, FOR-12 
FOR$DELETE_D, FOR-1 5 
FOR$ENDFILE, FOR-8 
FOR$ERRSNS, FOR-43 
FOR$ERRSNS_W, FOR-43 
FOR$EXIT, FOR-43 
FOR$EXIT_W, FOR-43 
FOR$IDATE, FOR—42 
FOR$INI_DES1 _R2, FOR-35 
FOR$INI_DES2—R3, FOR-35 
FOR$INI_DESC_R6, FOR-35 
FOR$INQUIRE, FOR-23 
FOR$IO_d_m, FOR-8 
FOR$IO_END, FOR-8 
FOR$JDATE, FOR—42 
FOR$LGE, FOR—39 
FOR$LGT, FOR—39 
FOR$LLE, FOR—39 
FOR$LLT, FOR—39 


Index-9 


FOR$OPEN, FOR—19 
FOR$PAUSE, FOR—39 
FOR$READ_DF, FOR-15 
FOR$READ_DO, FOR-15 
FOR$READ_DU, FOR-16 
FOR$READ_IF, FOR-16 
FOR$READ_IO, FOR-16 
FOR$READ_KF, FOR-1 3 
FOR$READ_KO, FOR-1 3 
FOR$READ_KU, FOR-14 
FOR$READ_SF, FOR-9 
FOR$READ_SL, FOR-10 
FOR$READ_SN, FOR-11 
FOR$READ_SO, FOR-9 
FOR$READ_SU, FOR-11 
FOR$REWIND, FOR-8 
FOR$REWRITE_SF, FOR-1 3 
FOR$REWRITE_SO, FOR-1 3 
FOR$REWRITE_SU, FOR-14 
FOR$SECNDS, FOR-44 
FOR$STOP, FOR—40 
FOR$TIME, FOR-44 
FOR$TIME_T_DS, FOR-44 
FOR$UNDERFLOW—HANDLER, FOR-40 
FOR$UNLOCK, FOR-1 2 
FOR$WRITE_DF, FOR-15 
FOR$WRITE—DO, FOR-15 
FOR$WRITE—DU, FOR-16 
FOR$WRITE_IF, FOR-16 
FOR$WRITE_IO, FOR-16 
FOR$WRITE_SF, FOR-9 
FOR$WRITE—SL, FOR-10 
FOR$WRITE_SN, FOR-11 
FOR$WRITE—SO, FOR-9 
FOR$WRITE_SU, FOR-11 
FOR$xlBCLR, FOR—37 
FOR$xlBITS, FOR—37 
FOR$xlBSET, FOR—37 
FOR$xlSHFTC, FOR-37 
FOR$xMVBITS, FOR-37 
FOR$_RECIO—OPE, FOR-7 
Format characters, BAS—22 
Format code 

compiled codes, FOR—30t 
decimal width, FOR-29 
default formats, FOR-30t 
exponential width, FOR—29 
field width, FOR—28 
format code byte, FOR—28 
formatted I/O, FOR—27 
Hollerith constants, FOR—30 
repeat count, FOR—28 
size specification byte, FOR—28 
VFE address, FOR-29 


Format code byte, format code, FOR-28 
Format interpreter, BAS-47 
Format processing and conversion, 

BAS—43 to BAS—58, FOR-27 to FOR-33 
Formatted I/O 
format code, FOR-27 
FORTRAN compiled code 
memory layout, FOR-2 
Frame control data, FCD, BAS—6 
Frame support procedures, BAS—59 
FREE statement, PLI-74 
Free virtual memory 
PLI$FREEHEEP, PLI-74 
FUNCTION statement, BAS-12 
FUNCTIONEND statement, BAS-1 3 
FUNCTIONEXIT statement, BAS-1 3 
Functions, support 
matrix I/O, BAS—28 


G 

Generate a string 

BAS$STRING, BAS-54 
GET statement, PLI-14 to PLI-19 
EDIT option, PLI-16 to PLI-1 7 
LIST option, PLI-18 to PLI-19 
STRING option, PLI—75 
GOSUB routines, BAS—7 
GOSUB statement 

BAS$INIT_GOSUB, BAS-60 
GOTO, nonlocal, PLI—71 


H 

Heap storage 

allocation of, BAS—3, FOR—2 
Hollerith constants 
format code, FOR—30 


I 

I/O data base, FOR-6 
I /O devices 

unit numbers for, COB-14t 
I/O exceptions 

COBOL handling, COB$IOEXCEPTION, 
COB-48 
I/O list 

element transmission calls, BAS—22, FOR—8 
initialization, BAS—22, FOR—6 
initialization calls, BAS—23 
matrix transmission calls, BAS—27 
termination call, BAS-22, FOR-8 
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I/O statements, FOR—6 

auxiliary, BAS-34 to BAS-42, COB-13 to 
COB-15, FOR—1 9 to FOR-25, PLI-31 to 
PLI-34 

block, ISB, FOR—19 
example, BAS—22, FOR—6 
restarting, BAS—1 7 
Immediate mode code 
BAS$INIT_IOL, BAS—61 
Immediate on-line routines, BAS—7 
INDEX built-in function 
PLI$INDEXBIT, PLI—41 
Indexed I/O 
formatted, FOR-13 
unformatted, FOR-14 

Indexed I/O procedures, BAS-21, FOR-12 to 
FOR-14 
Initialization 

I/O list, BAS—22, FOR—6 
Initialize 

procedure stack frame, PLI—67 
Initialize matrices, BAS-69, BAS-70, BAS-72 
Initialize the user environment 
BAS$RUN_INIT, BAS-66 
Input number 

element transmission calls, BAS—24 
Input text 

element transmission calls, BAS—25 
INQUIRE statement 

FOR$INQUIRE, FOR-23 
Internal I/O procedures, BAS—32, FOR—1 6 
Invert matrices, BAS—70 
IOSTAT specifier, GEN-55 
ISB, I/O statement block, FOR-19 

K 

KEY condition, PLI—7 

Key information block, OPEN statement, BAS—36 
Keywords 
CLOSE, FOR-23 
INQUIRE, FOR-23 
OPEN, FOR—20 

L 

Label vector entry 

uninitialized, signal error, PLI—73 
Language keywords 

RMS file structure, GEN-39t 
Language statements 
RMS functions, GEN—40 
Language support 
data types, GEN—4t 
RMS file structure, GEN-27 


Layout 

procedure stack frame, BAS-6 to BAS-8 
Lexical comparisons, FOR—38 
LIB$AB_ASC_EBC, COB-54 
LIB$AB_ASC_EBC_REV, COB-55 
LIB$AB_CVTPT_0, COB-58 
LIB$AB_CVTPT_U, COB-59 
LIB$AB_CVTTP_0, COB-60 
LIB$AB_CVTTP_U, COB-61 
LIB$AB_CVT_0_U, COB-62 
LIB$AB_CVT_U_0, COB-62 
LIB$AB_EBC_ASC, COB-56 
LIB$AB_EBC_ASC_REV, COB-57 
LIB$ESTABLISH, COB-4, COB-46, FOR-40 
LIB$SIGNAL, BAS—14, COB-46, FOR-3, 
GEN-56 

LIB$SIM_TRAP, FOR—40 

LIB$STOP, BAS—14, COB-46, FOR-3, GEN-56 
Library facility prefix, FOR-3 
LINAGE clause, COB-7 to COB-11 
close last logical page, COB$TERM_LINAGE, 
COB—10 

consistency check, COB$INIT_LINAGE, 
COB-9 

context block, COB—7 
update counter, COB$LINAGE, COB-10 
LINAGE-COUNTER 
COBOL special register, COB—8 
$LOCAL, PSECT, FOR-2 
Logical unit 

block, LUB, FOR-19 
default, FOR—7t 

last OPENed, BAS$STATUS, BAS-39 
number, LUN, BAS-34 
Logical unit number, LUN, GEN—50 
LUB, logical unit block, FOR-19 
LUN, logical unit number, BAS—36, BAS—38, 
GEN-50 

M 

Major procedure, BAS-6 
BAS$END_R8, BAS-63 
BAS$INIT_R8, BAS—61 
Mathematics procedures, PLI—65 to PLI—66 
Matrix addition 

BAS$MAT_ADD, BAS-68 
Matrix copy 

BAS$MAT_ASSIGN, BAS-69 
Matrix I/O 

support functions, BAS—28 
Matrix initialization 

BAS$MAT_IDN, BAS-69 
BAS$MAT_INIT, BAS-70 
BAS$MAT_NULL, BAS-72 
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Matrix inversion, BAS-75 
BAS$MAT_INV, BAS-70 
Matrix manipulation procedures, BAS—67 to 
BAS-75 

Matrix multiplication 

BAS$MAT_MUL, BAS-71 
BAS$MAT_SCA_MUL, BAS-73 
Matrix redimensioning 

BAS$MAT_REDIM, BAS-72 
Matrix subtraction 

BAS$MAT_SUB, BAS-74 
Matrix transmission calls 
I/O list, BAS—27 
input, BAS$IN_MAT, BAS-27 
output, BAS$OUT_MAT_f, BAS-28 
Matrix transposition 

BAS$MAT_TRN, BAS-74 
Memory layout 

BASIC compiled code, BAS-3 
FORTRAN compiled code, FOR-2 
MIL-STD 1753 functions 
bit operations, FOR—37 
Mount next volume 
PLI$NXTVOL, PLI-33 
Move operation 

PLI$MOVBIT, PLI-39 
MOVTUC, BAS—77 
Multiple-precision division 
PLI$DIV_PK_LONG, PLI-65 
PLI$DIV_PK_SHORT, PLI-65 
Multiply 

CIT data type, COB$MULTI, COB-36 
quadwords, COB$MULQ_R8, COB—41 
Multiply matrices, BAS-71, BAS-73 
Multiply numeric strings 
BAS$PROD, BAS—51 

N 

NAM, name block, GEN-50 
Name block, NAM, GEN-50 
NAMELIST controlled 
sequential I/O, FOR-11 
NEXTVOLUME built-in subroutine 
PLI$NXTVOL, PLI-33 
Nonlocal 

GOTO, GEN-58, PLI-71 
RETURN, PLI-72 
NOT operation 

PLI$NOTBIT, PLI-39 

O 

ON ERROR GO BACK, GEN-57 
ON ERROR GOTO, GEN-54 


ON ERROR statement 

BAS$INIT_ONERR, BAS-62 
ON-unit, GEN-55, PLI-7, PLI-8 
ONARGSLIST built-in function, PLI—70 
ONCODE built-in function, PLI-70 
ONFILE built-in function, PLI—70 
ONKEY built-in function, PLI—69 
$OPEN, FOR-19 
OPEN statement, PLI—12 
BAS$OPEN, BAS—34 
FOR$OPEN, FOR-19 

Option block, OPEN statement, BAS-34 to 
BAS-3 6 

OPTIONS MAIN procedure 
PLI$OPTIONS_MAIN, PLI-67 
OR operation 

PLI$ORBIT, PLI—38 
Output number 

element transmission calls, BAS—26 
Output suppression 
BAS$CTRLO, BAS—42 
Output text 

element transmission calls, BAS—27 
Output unsuppression 
BAS$RCTRLO, BAS-42 
OVERFLOW condition, PLI-7 

P 

Parameter characteristics, FOR—3 
Parameter passing mechanisms, COB—4, GEN-1 
BASIC support, GEN—2 
COBOL support, GEN—2 
data types, GEN-3 
FORTRAN support, GEN-2 
PL/I support, GEN-3 
Passing mechanisms, BAS—22. See also 
parameter passing mechanisms 
Passing parameters. See parameter passing 
mechanisms 
PAUSE statement 

FOR$PAUSE, FOR—39 
$PDATA, PSECT, BAS-4, FOR-2 
PLI$ABITABIT_R6, PLI-64 
PLI$ABITBIT_R6, PLI-64 
PLI$ABITCHAR_R6, PLI—59 
PLI$ABITFIXB_R6, PLI-50 
PLI$ABITFIXD_R6, PLI-50 
PLI$ABITFLTB_R6, PLI-50 
PLI$ABITFLTD_R6, PLI-50 
PLI$ABITPIC_R6, PLI—54 
PLI$ABITVCHA_R6, PLI-59 
PLI$ALOCHEEP, PLI-74 
PLI$ANDBIT, PLI—36 
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PLI$BITABIT_R6, PLI-64 
PLI$BITBIT_R6, PLI-64 
PLI$BITCHAR_R6, PLI-59 
PLI$BITFIXB_R6, PLI-50 
PLI$BITFIXD_R6, PLI-50 
PLI$BITFLTB_R6, PLI-50 
PLI$BITFLTD_R6, PLI-50 
PLI$BITPIC_R6, PLI-54 
PLI$BITVCHA_R6, PLI-59 
PLISBOOLBIT, PLI-37 
PLI$BOUND_CHECK, PLI-71 
PLI$CATBIT, PLI—40 
PLI $CH ARAB IT_R6, PLI-64 
PLI$CHARBIT_R6 / PLI—63 
PLI$CHARCHAR_R6 / PLI-60 
PLI$CHARFIXB_R6, PLI—51 
PLI$CHARFIXD_R6, PLI—51 
PLI$CHARFLTB_R6, PLI—51 
PLI$CHARFLTD_R6, PLI—51 
PLI$CHARPIC_R6, PLI-54 
PLI$CHARVCHA_R6, PLI-60 
PLI$CLOSE, PLI—1 3 
PLI$CMPBIT, PLI—40 
PLI$CND_HND, PLI—68 
PLI$CVT_FR_PIC, PLI—53 
PLI$CVT_TO_PIC, PLI—52 
PLI$DATE, PLI—73 
PLI$DEF_HND, PLI-68 
PLI$DELETE, PLI-29 
PLI$DISPLAY, PLI—31 
PLI$DIV_PK_LONG, PLI-65 
PLI$DIV_PK_SHORT, PLI-65 
PLI$EXTEND, PLI—32 
PLI$FIXBABIT_R6, PLI—62 
PLI$FIXBBIT_R6, PLI—61 
PU$FIXBCHAR_R6, PLI-56 
PLI$FIXBFIXB_R6, PLI-47 
PLI$FIXBFIXD_R6, PLI-47 
PLI$FIXBFLTB_R6, PLI-47 
PLI$FIXBFLTD_R6, PLI-48 
PLI$FIXBPIC_R6, PLI-54 
PLI$FIXBVCHA_R6, PLI-56 
PLI$FIXDABIT_R6, PLI—62 
PLI$FIXDBIT_R6, PLI—61 
PLI$FIXDCHAR_R6, PLI-56 
PLI$FIXDFIXB_R6, PLI-47 
PLI$FIXDFIXD_R6, PLI-47 
PLI$FIXDFLTB_R6, PLI-47 
PLI$FIXDFLTD_R6, PLI-48 
PLI$FIXDPIC_R6, PLI-54 
PLI$FIXDVCHA_R6, PLI-56 
PLI$FLTBABIT_R6, PLI-62 
PLI$FLTBBIT_R6, PLI-62 
PLI$FLTBCHAR_R6, PLI-58 


PLI$FLTBFIXB_R6, PLI^17 
PLI$FLTBFIXD_R6, PLI-47 
PLI$FLTBFLTB_R6, PLI-48 
PLI$FLTBFLTD_R6, PLI-48 
PLI$FLTBPIC_R6, PLI-54 
PLI$FLTBVCHA_R6, PLI-58 
PLI$FLTDABIT_R6, PLI-62 
PLI$FLTDBIT_R6, PLI-62 
PLI$FLTDCHAR_R6, PLI-58 
PLI$FLTDFIXB_R6, PLI-47 
PLI$FLTDFIXD_R6, PLI-48 
PLI$FLTDFLTB_R6, PLI-48 
PLI$FLTDFLTD_R6, PLI^18 
PLI$FLTDPIC_R6, PLI-54 
PLI$FLTDVCHA_R6, PLI-58 
PLISFLUSH, PLI—32 
PLI$FREEHEEP, PLI-74 
PLI$GETEABIT_R6, PFI-1 7 
PLI$GETEBIT_R6, PLI—1 7 
PLI$GETECHAR_R6, PLI—1 7 
PLI$GETEDITITEM module, PLI—16 to PLI—1 7 
parameters for routines, PLI—16t 
PLI$GETEFIXB_R6, PLI—1 7 
PLI$GETEFIXD_R6, PLI—1 7 
PLI$GETEFLTB_R6, PLI—1 7 
PLI$GETEFLTD_R6, PLI—1 7 
PLI$GETEPIC_R6, PLI—1 7 
PLI$GETEVCHA_R6, PLI—1 7 
PLI$GETFILE_R6, PLI—14 to PLI—16 
parameters for, PLI—15t 
PLI$GETLABIT_R6, PLI—18 
PLI$GETLBIT_R6, PLI—18 
PLI$GETLCHAR_R6, PLI—18 
PLI$GETLFIXB_R6, PLI—18 
PLI$GETLFIXD_R6, PLI—18 
PLI$GETLFLTB_R6, PLI—18 
PLI$GETLFLTD_R6, PLI—18 
PLI$GETLISTITEM module, PLI—18 to PLI—19 
parameters for routines, PLI—18t 
PLI$GETLPIC_R6, PLI—18 
PLI$GETLVCHA_R6, PLI—18 
PLI$GETSTRING_R6, PLI-75 
PLI$INDEXBIT, PLI—41 
PLI$IO_ERROR, PLI—69 
PLI$MOVBIT, PLI—39 
PLI$MOVTRANCHAR, PLI^f2 
PLI$NONLOC_GOTO, PLI-71 
PLI$NONLOC_RET, PLI—72 
PLI$NOTBIT, PLI—39 
PLI$NXTVOL, PLI—33 
PLI$ONCNDARGS, PLI-70 
PLI$ONCODE, PLI-70 
PLI$ONFILE, PLI-70 
PLI$ONKEY, PLI—69 


Index-13 




PLl$OPEN, PLI-12 
PLI$OPTIONS_MAIN, PLI-67 
PLI$OPTMAIN_RET, PLI-73 
PLI$ORBIT, PLI-38 
PLI$PICABIT_R6, PLI-63 
PLI$PICBIT_R6, PLI-63 
PLI$PICCHAR_R6, PLI-58 
PLI$PICFIXB_R6, PLI-49 
PLI$PICFIXD_R6, PLI-49 
PLI$PICFLTB_R6, PLI-49 
PLI$PICFLTD_R6, PLI-49 
PLI$PICPIC_R6, PLI-54 
PLI$PICVCHA_R6, PLI-59 
PLI$PUTEBIT_R6, PLI-22 
PLI$PUTECHAR_R6, PLI-22 
PLI$PUTEDITITEM module, PLI-22 
parameters for routines, PLI—22t 
PLI$PUTEFIXB_R6, PLI-22 
PLI$PUTEFIXD_R6, PLI-22 
PLI$PUTEFLTB_R6, PLI-22 
PLI$PUTEFLTD_R6, PLI-22 
PLI$PUTEPIC_R6, PLI-22 
PLI$PUTEVCHA_R6, PLI-22 
PLI$PUTFILE_R6, PLI—19 to PLI—21 
parameters for, PLI—211 
PLI$PUTLABIT_R6, PLI-24 
PLI$PUTLBIT_R6, PLI-24 
PLI$PUTLCHAR_R6, PLI-24 
PLI$PUTLFIXB_R6, PLI-24 
PLI$PUTLFIXD_R6, PLI-24 
PLI$PUTLFLTB_R6, PLI-24 
PLI$PUTLFLTD_R6, PLI-24 
PLI$PUTLISTITEM module, PLI-23 
parameters for routines, PLI—23t 
PLI$PUTLPIC_R6, PLI-24 
PLI$PUTLVCHA_R6, PLI-24 
PLI$PUTSTRING_R6, PLI—75 
PLI$PUT_END_R6, PLI—25 
PLI$READ, PLI—25 
PLI$RESIGNAL, PLI—71 
PLI$REWIND, PLI—33 
PLI$REWRITE, PLI—28 
PLI$RT_SUBSCRIP, PLI-73 
PLI$SPACEBLOCK, PLI-34 
PLI$STOP_PROG, PLI-67 
PLI$TIME, PLI—74 
PLI$VALID_PIC, PLI—53 
PLI$VCHAABIT_R6, PLI-64 
PLI$VCHABIT_R6, PLI-64 
PLI$VCHACHAR_R6, PLI-60 
PLI$VCHAFIXB_R6, PLI—51 
PLI$VCHAFIXD_R6, PLI—51 
PLI$VCHAFLTB_R6, PLI—51 
PLI$VCHAFLTD_R6, PLI—51 


PLI$VCHAPIC_R6, PLI-54 
PLI$VCHAVCHA_R6, PLI-60 
PLI$VERIFY, PLI—43 
PLI$WRITE, PLI—27 
PRINT USING statement, BAS—47 
Procedure calling sequence. 5ee calling 
sequence 

Procedure parameter forms. See parameter forms 
Procedure return status codes. See return 
status codes 

Procedure stack frame, BAS—4f, BAS—6 
initialize, PLI—67 
layout, BAS—6 to BAS—8 
Procedures 
activation, BAS—3 
compatibility, BAS-79 to BAS-85 
compiled-code support, BAS-59, FOR-35 
direct I/O, FOR—14 
exponentiation, BAS—56 
file status, BAS—37 
indexed I/O, BAS-21, FOR-12 
initialization, BAS—3 
internal I/O, BAS-32, FOR-16 
random I/O, BAS—20 
Sequential I/O, BAS-19 
sequential I/O, FOR-8 
string manipulation, BAS—51 
terminal-format I/O, BAS—22 
terminal functions, BAS—39 
virtual I/O, BAS—29 

PROGRAM COLLATING SEQUENCE clause, 
COB-53 

Program units, supported, BAS-2t 
Program units, supported by FORTRAN, FOR-2t 
PSECT $ARRAY, BAS-5 
PSECT $BLANK, FOR-2 
PSECT $CODE, BAS—4, FOR-2 
PSECT $LOCAL, FOR-2 
PSECT $PDATA, BAS-4, FOR-2 
PSECT COM/MAP, BAS-5 
PUT statement, PLI—19 to PLI-24 
EDIT option, PLI-22 to PLI—23 
LIST option, PLI-23 to PLI-24 
STRING option, PLI—75 

R 


RAB, GEN-50 

fields set by OPEN, GEN-48t to GEN—49t 
RAB, record access block, FOR-19, GEN-43 
Random I/O procedures, BAS- 20 to BAS-21 
Random number 

generator, BAS$RND_F_R1, BAS-67 
initialization, BAS$RANDOMIZE, BAS-66 
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Read array 

BAS$MAT_INPUT, BAS-23 
Read direct 

formatted, FOR$READ_DF, FOR-15 
formatted, FOR$READ_DO, FOR-15 
unformatted, FOR$READ_DU, FOR-1 6 
Read indexed 

BAS$GET_KEY, BAS-21 
formatted, FOR$READ_KF, FOR-1 3 
formatted, FOR$READ_KO, FOR-1 3 
unformatted, FOR$READ_KU, FOR-14 
Read internal 

BAS$READ, BAS—32 
formatted, FOR$READ_IF, FOR-1 6 
formatted, FOR$READ_IO, FOR-1 6 
Read internal array 

BAS$MAT_READ, BAS-32 
Read list 

BAS$INPUT, BAS-23 
Read next line 

witFi terminator, BAS$INPUT_LINE, BAS—23 
without terminator, BAS$LINPUT, BAS—23 
Read record 

PLI$READ, PLI-25 
Read relative 

BAS$GET_RECORD, BAS-21 
Read sequential 
BAS$GET, BAS—1 9 
formatted, FOR$READ_SF, FOR-9 
formatted, FOR$READ_SO, FOR-9 
list-directed, FOR$READ_SL, FOR-10 
unformatted, FOR$READ_SU, FOR—11 
READ statement 
PLI$READ, PLI-25 
Read string array 

BAS$MAT_LINPUT, BAS-23 
Reading external switches, COB—51 
Record access block, RAB, FOR—19, GEN—43 
Record access modes 
BASIC support, GEN-32 
COBOL support, GEN-33 
FORTRAN support, GEN-35 
PL/I support, GEN-37 
RMS file structure, GEN—29 
Record attributes 

BASIC support, GEN-32 
COBOL support, GEN—34 
FORTRAN support, GEN-36 
PL/I support, GEN—38 
RMS file structure, GEN—30 
Record formats 

BASIC support, GEN-32 
COBOL support, GEN-34 
FORTRAN support, GEN-35 


Record formats (Cont.) 

PL/I support, GEN-37 
RMS file structure, GEN—29 
Record I/O procedures, BAS-19 to BAS-21 
Record Management Services, VAX-11 (RMS), 
PLI-31 

Recursion, FOR-7 
Redimension matrices, BAS—72 
Register 

uses, BAS—5 
Register usage 

conversion from CIT, COB—27t 
conversion from D_floating, COB—32t 
conversion from F_floating, COB—311 
conversion from packed decimal, COB—33t 
conversion from quadword, COB—30t 
conversion to CIT, COB-25t 
Relational operators 
PLI$CMPBIT, PLI—40 
Remove DEF* statement frame 
BAS$END_DFS_R8, BAS-85 
Repeat count 
format code, FOR—28 
RESIGNAL built-in subroutine, PLI—71 
RESIGNAL, PL/I subroutine, GEN-57 
Resignaling, COB-46 
in BASIC, GEN-57 
in COBOL, GEN-57 
error actions, GEN—53 
in FORTRAN, GEN-57 
in PL/I, GEN-57, PLI—9 
RESIGNAL built-in subroutine, PLI—71 
RESIGNAL PL/I subroutine, PLI—8 
Restore data pointer 

BAS$RESTORE_DAT, BAS-33 
RESUME, GEN-58 
Return a subfield 

bit operations, FOR—37 
Return buffer size 

BAS$BUFSIZ, BAS—38 
Return control to VMS 
FOR$EXIT, FOR—43 
Return date 

BAS$DATE_T, BAS-64 
Return from GOSUB 

BAS$END_GSB_R8, BAS-64 
Return last error data 
FOR$ERRSNS, FOR-43 
RETURN, nonlocal, PLI-72 
Return relative position of substring 
BAS$POS, BAS—55 
RETURN statement 

PLI$OPTMAIN_RET, PLI—73 
Return status symbols. See return status codes 
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Return system date 

COB$ACC_DAxx, COB-44 
FOR$DATE, FOR—41 
FOR$IDATE, FOR—42 
FOR$jDATE, FOR—42 
Return system time 
COB$ACC_TIME, COB-45 
FOR$SECNDS, FOR-44 
FOR$TIME, FOR-44 
Return values, COB—4 
Rewind 

BAS$RESTORE, BAS-20, BAS-21 
FOR$REWIND, FOR-8 
PLI$REWIND, PLI-33 
REWIND built-in subroutine 
PLI$REWIND, PLI-33 
Rewind indexed 

BAS$RESTORE_KEY, BAS-21 
Rewrite current record 
unformatted, FOR$REWRITE_SU, FOR-14 
Rewrite record 

PLI$REWRITE, PLI-28 
REWRITE statement 
PLI$REWRITE, PLI-28 
RMS file-handling services, PLI—31 to 
PLI-34 

RMS file structure 
file characteristics, GEN-27 
file organizations, GEN—28 
language keywords, GEN—39t 
language support, GEN—27 
record access modes, GEN—29 
record attributes, GEN—30 
record formats, GEN—29 
RMS functions 

BASIC support, GEN-40t 
COBOL support, GEN-411 
FORTRAN support, GEN-411 
language statements, GEN—40 
Round or truncate numeric string 
BAS$PLACE, BAS—51 

S 

Scale a D_floating value 

BAS$SCALE_D_R1, BAS-76 
Scaled data items 
data types, COB—20t 
Sequential I/O 
formatted, FOR-9 
list-directed, FOR—10 
NAMELIST controlled, FOR—11 
unformatted, FOR—11 

Sequential I/O procedures, BAS—1 9 to BAS—20, 
FOR-8 to FOR—1 2 


Signaling 

in BASIC, GEN-56 

in COBOL, GEN-56 

error, PLI—7 

error actions, GEN—53 

in FORTRAN, GEN-56 

I/O errors, COB-3 

I/O errors, PLI$IO_ERROR, PLI-69 

in PL/I, GEN-57 

run-time errors, COB$ERROR, COB-45 
SS$_UNWIND condition, 

PLI$NONLOC_GOTO, PLI—71 
SS$_UNWIND condition, PLI$NONLOC_RET, 
PLI—72 

subscript out of range, PLI$BOUND_CHECK, 
PLI—71 

uninitialized label vector entry, 
PLI$RT_SUBSCRIP, PLI—73 
Signaling errors 

detected by compiled code, COB$ERROR, 
COB-46 

Size specification byte, format code, FOR—28 
SLEEP statement 
BAS$SLEEP, BAS—41 
Space file 

PLI$SPACEBLOCK, PLI-34 
SPACEBLOCK built-in subroutine 
PLI$SPACEBLOCK, PLI-34 
SPANC instruction, COB—63 
SPECIAL-NAMES paragraph, COB-53 
SS$_RESIGNAL, condition value, GEN-57 
SS$_ROPRAND, COB-46 
SS$_UNWIND, condition value, GEN-58 
Stack frame, procedure, BAS—3 
Stack, software simulated, FOR—6 
Stack storage 

allocation of, BAS-2, FOR-2 
Static storage 

allocation of, BAS-2, FOR-2 
Stop PL /I program 

PLI$STOP_PROG, PLI—67 
STOP statement 

COB$PAUSE, COB-52 
FOR$STOP, FOR—40 
Stopping the program, PLI—8 
Store array element 

BAS$STORE_BFA, BAS-30 
Store array number 

BAS$STO_FA_x_R8, BAS-30 
Store string array element 
BAS$STO_FA_RDX, BAS-30 
STR$COPY, BAS—47, BAS-77 
STR$FREE1, BAS-77 
STR$GET1, BAS—47, BAS-77 
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Stream I/O, PLI-14 
String comparisons, FOR-38 
String data types 

BASIC support, GEN-7t 
COBOL support, GEN—11t 
FORTRAN support, GEN-1 5t 
PL/I support, GEN—1 9t 
String I/O, PLI-5, PLI-75 to PLI-76 
String manipulation procedures, BAS—51 to 
BAS—55, PLI-3, PLI-35 to PLI-44 
bit, PLI-35 to PLI—42 
character, PLI—42 to PLI—44 
SUB statement, BAS-12 
SUBEND statement, BAS-12 
SUBEXIT statement, BAS-12 
Subroutines 

writing COBOL, COB—3 
writing PL/I, PLI-5 
Subtract 

CIT data type, COB$SUBI, COB-35 
Subtract matrices, BAS—74 
Subtract numeric strings 
BAS$D!F, BAS—51 
Support procedures 
summary, COB-2 
Switches 

clearing external, COB$SET_SWITCH, 

COB-51 

reading external, COB$SWITCF-l, COB—51 
setting external, COB$SET_SWITCH, COB-51 
SYS function, RSTS 
BAS$SYS, BAS—82 
SYS$CONNECT, GEN-50 
SYS$CREATE, GEN-50 
SYS$OPEN, GEN-50 
SYS$OUTPUT, COB-52 
SYS$UNWIND, system service, GEN-58 
System service 
$CLOSE, COB—10 
$EXIT, PLI—8 

T 

Terminal-format I/O procedures BAS—22 to 
BAS—29 

Terminal function procedures, BAS—39 to BAS—42 
Terminate external PL/I procedure, PLI—6 
Termination call 

I/O list, BAS—22, FOR—8 
TIME function 

BAS$TIME_F, BAS—65 
TIMES function 

BAS$TIME_T, BAS—65 
TRANSLATE built-in function 
PLI$MOVTRANCHAR, PLI-42 


Translate characters, BAS—77 
Translation tables, COB—53 to COB—65 
ASCII to EBCDIC, COB—54t 
ASCII to EBCDIC, reversible, COB-55t 
COBOL class test table, COB-64t 
CVTPT instruction, COB-58t, COB-59t 
CVTTP instruction, COB-60t, COB-611 
EBCDIC to ASCII, COB—56t 
EBCDIC to ASCII, reversible, COB-57t 
MOVC3 instruction, COB—63t 
MOVTC instruction, COB-62t 
nondigits to zeros, COB—65t 
numeric edited data, COB—65t 
packed decimal to trailing overpunch numeric, 
COB—58t 

packed decimal to unsigned numeric, COB—59t 
SPANC instruction, COB-64t 
trailing overpunch numeric to packed decimal, 
COB—60t 

trailing overpunch numeric to unsigned 
numeric, COB—62t 

unsigned numeric to packed decimal, COB—611 
unsigned numeric to trailing overpunch 
numeric, COB—63t 
Transpose matrices, BAS—74 
Trim Trailing Tabs & Spaces 
BAS$TRM, BAS—49 
Type-ahead suppression 

BAS$CANTYPAHEAD, BAS-40 

U 

UNDEFINEDFILE condition, PLI—7 
UNDERFLOW condition, PLI—7 
Uninitialized label vector 
signal error, PLI$RT_SUBSCRIP, PLI—73 
Unit numbers 

for I/O devices, COB-14t 
Unlock all records 
BAS$FREE, BAS—37 
Unlock current record 
BAS$UNLOCK, BAS-37 
Unlock record 

FOR$UNLOCK, FOR-12 
Unsealed data items 
data types, COB—18t 
Unwinding, PLI—8 
in BASIC, GEN-58 
in COBOL, GEN-58 
error actions, GEN—54 
in FORTRAN, GEN-58 
in PL/I, GEN-58 
PLI$NONLOC_GOTO, PLI—71 
PLI$NONLOC_RET, PLI-72 
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Update record 

BAS$UPDATE, BAS-20, BAS-21 
USAGE clause 
data types, COB-18 
USE procedure, COB-45, GEN-55 
USE statement, COB-47 
USEROPEN keyword 
OPEN statement, GEN-50 
USEROPEN routine 
MACRO example, GEN—51 
restrictions, GEN—51 
Utility procedures, PLI—71 to PLI—73 

V 

%VAL, FOR—3 
Validate picture data 
PLI$VALID_PIC, PLI—53 
VAX—11 Condition Handling Facility, CHF, 

BAS—14 

VAX-11 Condition Handling Standard, GEN-53 
VAX-11 Modular Programming Standard, COB-4 
VAX-11 Procedure Calling Standard, GEN-1 
VAX-11 Record Management Services, PLI—31 
VAXCONDITION, GEN-55 
VAXCONDITION condition, PLI—8, PLI—9 
VERIFY built-in function 
PLI$VERIFY, PLI—43 
VFE address 
format code, FOR-29 
Virtual array files, BAS—29 
Virtual I/O procedures, BAS—29 to BAS—32 
Virtual memory 
allocate, PLI—5 
free, PLI—5 

Virtual memory, allocate 
PLI$ALOCHEEP, PLI-74 
Virtual memory, free 
PLI$FREEHEEP, PLI-74 

W 


Write internal 

formatted, FOR$WRITE_IF, FOR-16 
formatted, FOR$WRITE_IO, FOR-16 
Write list 

BAS$PRINT, BAS—23 
formatted, BAS$PRINT_USING, BAS-23 
Write record 

PLI$WRITE, PLI—27 
Write relative 

BAS$PUT_RECORD, BAS-21 
Write sequential 
BAS$PUT, BAS—20 
formatted, FOR$WRITE_SF, FOR-9 
formatted, FOR$WRITE_SO, FOR-9 
list-directed, FOR$WRITE_SL, FOR-10 
unformatted, FOR$WRITE_SU, FOR-11 
WRITE statement 
PLI$WRITE, PLI—27 
Writing 

COBOL subroutines, COB—3 
PL/I subroutines, PLI—5 

X 

XAB, GEN-50 

fields set by OPEN, GEN-50t 
XAB, extended attribute block, GEN-43 
XLATE function 

BAS$XLATE, BAS-77 

Z 

ZERODIVIDE condition, PLI—7 


WAIT statement 

BAS$WAIT, BAS—42 
Write array 

BAS$MAT_PRINT, BAS-23 
Write direct 

formatted, FOR$WRITE_DF, FOR-1 5 
formatted, FOR$WRITE_DO, FOR-1 5 
unformatted, FOR$WRITE_DU, FOR-16 
Write indexed 

formatted, FOR$REWRITE_SF, FOR-1 3 
formatted, FOR$REWRITE_SO, FOR-1 3 
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In Continental USA 
and Puerto Rico 
call 800 - 258-1710 


In Canada 

call 800 - 267-6146 
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call 603 - 884-6660 
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DIGITAL EQUIPMENT CORPORATION 
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